Re bonjour à tous , voilla j'ai ce code
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Selection.Interior.ColorIndex = 3
Selection.Copy Destination:=Selection.Offset(0, -1)
Selection.Interior.ColorIndex = 15
Selection.Select
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Protect...