Remettre checkbox a null

Bonjour.

J'ai une feuille excel. J'ai +- 150 checkbox (en active X).

J'ai besoin de créer une macro qui va remettre la valeur de toute mes checkbox à False.

Merci de votre support.

Bonjour,

Essaye avec ceci

Sub clearCB()
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

MErci Thrrybo

Ca fonctionne !