Private Sub UserForm_Initialize()
Dim Plage As String
With Sheets("Feuil3")
'Charger sans rowsource
'ComboBox1.List = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
'Charger avec RowSource
ComboBox1.RowSource = "'" & .Name & "'!" & .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address
End With
End Sub
Private Sub Valider_Click()
MsgBox "mois: " & ComboBox1.ListIndex + 1
'Call Macro1
End Sub