Sub InitTout()
' Checkbox
Sheets("DONNEES").Range("M2:M10").ClearContents
' Listes
Sheets("DONNEES").Range("F1:K1").ClearContents
End Sub
Sub InitTout()
' Checkbox
Sheets("DONNEES").Range("M2:M10").ClearContents
' Listes
Sheets("DONNEES").Range("F1") = 1
Sheets("DONNEES").Range("I1") = 1
Sheets("DONNEES").Range("K1") = 1
End Sub