Bonjour,
voici une macro pour une recherhe de n° de GSM dans une liste a2:h120 de la feuille Firme avec un affichage dans un MSGBOX.
A toi de l'adapter.
Private Sub B_RECHERCHE_Click()
Dim nom As String
Dim tel As String
nom = FIRME
tel = WorksheetFunction.VLookup(nom, Range("FIRME!a2:H120"), 8, False)
Unload TELEPHONE
MsgBox "Le N°de téléphone " & UCase(nom) & " est" & Chr(13) & "le " & tel & "", vbOKOnly, "TELEPHONE"
End Sub
A +