Private Sub ComboBox1_Change()
Dim L As Long
L = ComboBox1.ListIndex + 5
With Sheets("Clients")
Me.TextBox1 = .Cells(L, 4).Text 'Adresse
Me.TextBox2 = .Cells(L, 5).Text 'CP
Me.TextBox3 = .Cells(L, 6).Text 'Ville
Me.TextBox4 = .Cells(L, 7).Text 'Tel
Me.TextBox5 = .Cells(L, 8).Text 'Fax
Me.TextBox6 = .Cells(L, 9).Text 'Mobile
Me.TextBox7 = .Cells(L, 10).Text 'Email
End With
End Sub