Sub ChercheClient()
Dim lign As Integer
With Worksheets("BaseClients")
lign = UsF_RechercheClient.Nom.ListIndex + 2
UsF_RechercheClient.Nom.Value = .Range("A" & lign).Value
UsF_RechercheClient.Prenom.Value = .Range("B" & lign).Value
UsF_RechercheClient.Adresse.Value = .Range("C" & lign).Value
UsF_RechercheClient.CP = .Range("D" & lign).Value
UsF_RechercheClient.Ville.Value = .Range("E" & lign).Value
UsF_RechercheClient.Tel.Value = .Range("F" & lign).Value
UsF_RechercheClient.Portable.Value = .Range("G" & lign).Value
UsF_RechercheClient.Mail.Value = .Range("H" & lign).Value
End With
End Sub