Bonjour
Mon code beug sur la ligne en gras pouvez vous svp me dire ou se trouve l'erreur
Cordialement et Merci
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 14
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)
Next I
End Sub