Private Sub ComboBox1_Change()
Dim ligne As Long
Dim i As Integer
Dim num_adherent As Integer
ligne = Me.ComboBox1.ListIndex + 2
Msgbox ligne
For i = 1 To 13 ' ----- 13 textbox à compléter et afficher
MsgBox Me.Controls("TextBox" & i).Name
MsgBox Ws.Cells(ligne, i + 1)
' Me.Controls("TextBox" & i) = Ws.Cells(ligne, i + 1)
Next i
End Sub