[VBA débutant]Définir variable colonne suivant un Find

Bonjour à tous,

Débutant VBA, je souhaite utiliser une boucle de type cells(i , j)

ou i est une boucle simple type i = i + 1

et j la colonne ou se trouve un certain mot dans la feuille 2

voici l'idée très simple que je souhaite:

Sub copie_données()

Dim i As Integer
Dim j As Integer

i = 2
' j = récupérer numéro de colonne de la feuille 2 ou se trouve le mot "PAIRE" (le mot en question sera toujours sur la ligne (A1:Z1))

While i < 50

Sheets(1).Cells(i, 1) = Sheets(2).Cells(i, j)

Wend

i = i + 1

End Sub

j'ai bien trouvé des exemples de la fonction find, mais je n'arrive pas à l'appliquer, je n'arrive pas à réutiliser ensuite ma variable sous forme cells (i , j).

Auriez vous une solution?

Merci d'avance pour votre aide.

Bonjour Mickou14,

A tester :

j = Rows(1).Find(What:="PAIRE", LookIn:=xlValues).Column

CA fonctionne bien !

Sub test()
    Dim i As Integer
    Dim j As Integer
    j = Sheets(2).Rows(1).Find(What:="PAIRE", LookIn:=xlValues).Column
    For i = 2 To 49
        Sheets(1).Cells(i, 1) = Sheets(2).Cells(i, j)
    Next i
End Sub

Cordialement,

Merci beaucoups ça marche parfaitement, en fait il me manquait l'argument ".column"

Je ne savais pas que l'on pouvait faire comme ça.

Je suis vraiment néophyte, et encore du mal avec tout les termes mêmes ceux de bases