Sub RECHERCHEV_Simple()
'/// -> partie servant juste à créer des données pour l'exemple
Dim entt: entt = Split("NOM ADRESSE VILLE")
[A1:C1] = entt
[A2] = [A1].Text & "1"
[B2] = [B1].Text & "1"
[C2] = [C1].Text & "1"
[A2:C2].AutoFill [A2:C6], 0
Range("A2:C6").Name = "bdon"
'/// <- fin création données pour test
'-> donc inutile ensuite dans ton vrai fichier
'Insertion des formules RECHERCHEV
With Range("F2")
.Offset(, -1) = "NOM2"
.FormulaR1C1 = "=VLOOKUP(R2C5,bdon,2,0)"
.Offset(, 1).FormulaR1C1 = "=VLOOKUP(R2C5,bdon,3,0)"
End With
End Sub