Pat, le forum
Si, j'ai bien compris, (Des restes du Nouvel peu être, hic et mal de but, lol)
Private Sub CommandButton1_Click()
CommandButton1.Caption = "Oui"
Range("A1").Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Activate()
CommandButton1.Caption = "Non"
Range("A1") = "0"
End Sub
Salut, G'Claire