Sub essai2()
Dim trouve_Adresse As Range
Enieme_Valeur = [G13]
Ligne = Application.Match(Enieme_Valeur, Range("C:C"), 0)
[G14] = Cells(Ligne, 2)
End Sub
Function Hoareau(N)
Ligne = Application.Match(N, Range("C:C"), 0)
Hoareau = Cells(Ligne, 2)
End Function