Commebt Cocher Plusieurs CheckBox à la fois

Bonjour,
je programme en Vba sous Excel
y'a t il une possibilité dans un UserForm de cocher et décocher plusieur CheckBox à la fois avec un autre CheckBox "Selectionner tout" tous en laissant le choix de ne cocher que les CheckBox qu'on veut si on n'utilise pas le CheckBox "Selectionner tout" ou bien il faut les chocher tous un par un de la maniere suivante

Private Sub CheckBoxSelectionnerTout _Change()

      if CheckBoxSelectionnerTout =True then 
                CheckBox1 = true
                CheckBox2 = true
                CheckBox3 = true
                CheckBox4 = true
      else
                CheckBox1 = false
                CheckBox2 = false
                CheckBox3 = false
                CheckBox4 = false
     endif

End Sub

ici j'ai mis l'exemple de 4 CheckBox a cocher ou a decocher sachant que j'ai une vingtaine

merci pour votre aide