Salut
oui, ce n'était pas très compliqué non plus d'autant qu'elle se trouve dans le fichier joint.
Ajoute quand même cette dernière ligne si tu veux rester sur la feuille active...
Worksheets("Accueil & Navigation").Activate
...le changement de valeur d'une CheckBox activant la-dite feuille !
Sub Tout_visible()
'
Dim obj As OLEObject
'
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is msforms.CheckBox Then obj.Object.Value = True
Next obj
Worksheets("Accueil & Navigation").Activate
'
End Sub
A+