Bouton supprimer contenu de certaines cellules

Bonjour,

Je souhaite réinitialiser un formulaire en supprimant le contenu de CheckBox et de certaines cellules via un bouton.
Attention, le nom de la feuille est modifié par le nom du dossier avant enregistrement.

Mon code pour l'instant donne ça :

Sub Initialiser()
'Réinitialiser cases à cocher
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
'Réinitialiser la feuille
    ActiveSheet.Range("B2:C8;D3:E8;J2;G11:H24;H25;G26:H27;H28:H32;G33:H54;H55;G56:H62;H63:H66;A74:H82;A86:H96;A100:H105;G60:H60").ClearContents
End Sub

La partie "Réinitialiser la feuille" ne fonctionne pas.

Salut

replace les point virgule par de simple virgules

Merci. Je cherchais bien plus compliqué que cela.

OK , tu apprends comme ça :)