Sub toto(num As String)
If Sheets(num).OLEObjects("CheckBox_" & num).Object.Value = True Then
Sheets(num).OLEObjects("CheckBox_" & num).Object.Value = False
Else
Sheets(num).OLEObjects("CheckBox_" & num).Object.Value = True
End If
MsgBox ("coucou")
End Sub