Private Sub CommandButton1_Click()
Dim lig As Long
CommandButton1.Enabled = False
lig = Range("c" & Rows.Count).End(xlUp).Row + 1
Range("c" & lig) = "x"
If Range("c" & lig) <> "" Then
CommandButton1.Enabled = True
Else
Exit Sub
End If
CommandButton2_Click
CommandButton3_Click
End Sub
Private Sub CommandButton2_Click()
MsgBox "Bonsoir !"
End Sub
Private Sub CommandButton3_Click()
MsgBox "Bonne nuit !"
End Sub