Private Sub ComboBox1_Change()
Dim ComboBox1 As Long
Dim i As Integer 'Pour lignes
If OptionButton1 = True Then
ComboBox1 = Sheets("Feuil2").Range("A50").End(xlUp).Row 'Variable = denière ligne non vide
For i = 2 To ComboBox1 'Démarrage ligne 2 vers la dernière non vide
Me.ComboBox1.AddItem Cells(i, 1) 'Ajouter en Comboxbox1 la liste
Next
End If
End Sub