Private Sub UserForm_Initialize()
Dim Ind As Integer, TabMois() As String
' Créer le tableau des mois à partir des valeurs séparées par une virgule
TabMois = Split("Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre", ",")
With Me.ListView1
With .ColumnHeaders
.Clear
.Add , , "Mois", 80
End With
.View = lvwReport
.CheckBoxes = True
For Ind = 0 To UBound(TabMois)
.ListItems.Add Ind + 1, , TabMois(Ind)
.ListItems.Item(Ind + 1).Checked = True
Next Ind
End With
End Sub