Private Sub Rechercher_Click()
Dim plge As Range
Set plge = Sheets("Clientes").Range("A2:A" & Range("A65536").End(xlUp).Row).Find(Nom.Value)
If Not plge Is Nothing Then
Prénom = plge.Offset(0, 1).Value
Datedenaissance = plge.Offset(0, 2).Value
Numérocliente = plge.Offset(0, 3).Value
Adresse = plge.Offset(0, 4).Value
Codepostal = plge.Offset(0, 5).Value
Ville = plge.Offset(0, 6).Value
Pays = plge.Offset(0, 7).Value
Téléphone = plge.Offset(0, 8).Value
Portable = plge.Offset(0, 9).Value
Email = plge.Offset(0, 10).Value
Fournisseuraccès = plge.Offset(0, 11).Value
Typedepeau = plge.Offset(0, 12).Value
Taille = plge.Offset(0, 13).Value
Poids = plge.Offset(0, 14).Value
Commentaires = plge.Offset(0, 15).Value
Else
MsgBox "N'éxiste pas"
Call Efface_Tout
End If
End Sub