Cocher seulement les mois dans une ListBox

[PJ87]

Bonjour le Forum,
Dans mon USF et dans la ListBox j’affiche les noms de mes feuilles.
Dans la ListBox.
Je suis arriver à faire le code pour cocher et décocher les feuilles.
Je voudrais savoir si il était possible de créer un code pour cocher et décocher seulement les feuilles commencent par Mois.
Merci de votre aide.
PJ87
Mois.xlsm (33,6 Ko)

[Cow18]

Private Sub CommandButton6_Click()
     For k = 0 To ListBox1.ListCount - 1
          ListBox1.Selected(k) = (ListBox1.List(k) Like "Mois*")
     Next
End Sub

[PJ87]

Bonjour Cow18,
Merci beaucoup c’est super.
Je te remercie.
Bonne fin d’après midi à toi et au Forum
PJ87