Sub course()
'Déclaration des variables
'-------------------------
Dim quoi As String 'indique que je vais rechercher un texte
Dim trouve As Range 'indique que ma variable va contenir une cellule et ses propriétés
Dim i As Integer 'i va être une variable qui va servir d'index
i = 3 'on dit que la valeur de i = 3
'Boucle qui va lire chaque cellule de la colonne h tant que les cellules ne seront pas vide
While Feuil1.Cells(i, 8) <> "" 'tant que ma cellule de la colonne h et de la ligne i est différente de rien
quoi = Feuil1.Cells(i, 8) ' j'intègre dans ma variable "quoi" la valeur de la cellule h et de la ligne i
Set trouve = Feuil1.Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp)).Find(quoi, lookat:=xlWhole) 'je recherche dans ma colonne 2 une cellule ayant la valeur de la variable "quoi"
If Not trouve Is Nothing Then 'si je trouve une cellule correpondante
Feuil1.Cells(i, 10) = trouve.Row 'au croisement de la ligne i et de la colonne 10 j'inscrit le numéro de ligne de la valeur trouvée
Feuil1.Cells(i, 11) = trouve.Offset(0, 2).Address(False, False) 'au croisement de la ligne i et de la colonne 11, j'inscrit l'adresse de la cellule trouvée.
End If 'fin de mon programme d'execution dans le cas où j'ai trouvé une cellule correspondante
i = i + 1 'j'augmente la valeur i de 1 de façon a lire, dans la colonne h, la valeur suivante
Wend 'si dans l'execution de la boucle on rencontre une cellule vide alors la condition s'arrête (while = tant que)
End Sub