Recherche en VBA

Bonjour,

Ci-joint un fichier qui contient l'explication.

Je vous en remercie.

Bonjour

A tester

Sub Recherche()
Dim I As Long
Dim R As Range

  For I = 2 To Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
    Set R = Sheets("Feuil1").Range("A:A").Find(Range("C" & I))
    If Not R Is Nothing Then
      Range("G" & I) = R.Offset(0, 2)
    Else
      Range("G" & I) = ""
    End If
  Next I
End Sub

Attention le reste de la colonne C doit être vide après la dernière donnée

Merci, j'ai bien reçue la modif.