Codigo botao alterar formulario tabela excell

Tenho uma tabela no excel, e criei um formulario, consegui fazer o codigo do botao procurar, mas o botao alterar registro, so funciona a primeira linha, mesmo que eu pesquise o ultima linha, ele altear so a primeira, codigo:
obs: gostaria de comando simples, pois é um trabalho e nao posso copiar um codigo complicado que eu nao saberei explicar.
==============================================================

Private Sub CommandButton2_Click()

Dim i As Integer
Dim NumImma As String
Dim resp As Integer
Dim Propri As String
Dim modele As String
Dim Portatt As String



NumImma = TextBox1.Text
Propri = TextBox2.Text
modele = TextBox3.Text
Portatt = TextBox4.Text




resp = MsgBox("Modifier des donnés", vbYesNo, "Modifier des donnés")

If resp = vbYes Then
i = 3
Do Until Cells(i, 1) = NumImma
Cells(i, 1).Value = NumImma
Cells(i, 2).Value = Propri
Cells(i, 3).Value = modele
Cells(i, 4).Value = Portatt
Cells(i, 5).Value = Propri

Exit Do
i = i + 1
Loop
If resp <> vbYes Then


End If
End If

====================================================


Obrigada

Olá, seja bem vinda ao nosso fórum.

Pergunto....a tabela que recebe os dados do Excel, está com os mesmo campos ( nome, formatação..etc...etc.)da planilha ?

Se for o caso, gentileza, poste aqui no fórum, zipada, a planilha e a tua base de dados.

Abraços.

Silvio

A pesuisa esta ok, mais na hora de alterar, ele altera sempre o primeiro registro.

Obrigada

Liane, por gentileza...onde está a base de dados do Access ?

Nao estou fazendo no acces, é somente a planilha do excel.

Lianne....lamento não poder lhe ajudar, pois o fórum aqui é somente para Access. Sugiro que você procure algum fórum especifico para Excell.

Abraços.

Tudo bem, obrigada pela atençao.