Parcourir une feuille de calcul

Bonjour au forum,

j'ai un probleme, qui parait banal, mais qui prend rapidement la tete.

oila, j'ai un userform qui permet d'ajouter des informations en fin de feuille, donc il faut que je descende ma colone jusqu'a ce que la ligne soit vide.

Pour l'instant, rien de plus simple, mais c'est là ou ça se complique.

Voici mon code:

Private Sub CommandButton1_Click()

Dim i As Integer

'active la feuille de calcul
Worksheets("feuil1").Activate

'Position en J1 (fournisseurs)
Range("J1").Select

' recherche la derniere ligne
i = 0
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("J1").Select
' i retient le numéro de ligne
i = i + 1
Loop

MsgBox "numéro de ligne: " & i & ActiveCell.Value

End Sub

Sauf que lorsque j'execute ça, je me retrouve en "AB3"!!

Une chose encore que je dois préciser, les colonnes "A", et les lignes 1 et 2 sont figés, j'ai selectionné la case C2, et j'ai figé les volets.

Voila, je n'arrive pas a retrouvé la bonne case.

Est ce que quelqu'un a une idée du pourquoi du comment?

Merci beaucoup

David