Private Sub CommandButton1_Click()
Cells(2, 2) = IIf(Cells(2, 2) = "todo", "Fait", IIf(Cells(2, 2) = "Fait", "Annulé", "todo"))
End Sub
Private Sub CommandButton2_Click()
Cells(3, 2) = IIf(Cells(3, 2) = "todo", "Fait", IIf(Cells(3, 2) = "Fait", "Annulé", "todo"))
End Sub
Private Sub CommandButton3_Click()
Cells(4, 2) = IIf(Cells(4, 2) = "todo", "Fait", IIf(Cells(4, 2) = "Fait", "Annulé", "todo"))
End Sub