Private Sub ComboBox1_Click()
Dim Ligne As Long, I As Integer
With Sheets("Clients")
Ligne = .Range("A:A").Find(Combobox1, LookAt:=xlWhole).Row
'Selon le code du client choisi dans la fenêtre CLIENTS, le nom associé s'affiche (en référence à la colonne B de
'la feuille de calcul intitulée "Clients"
For I = 1 To 8
Controls("textbox" & I) = .Cells(Ligne, I + 1)
Next I
End With
End Sub