Private Sub CommandButton1_Click()
TOUR1
Range("A1") = "Oui"
CommandButton1.BackColor = RGB(0, 0, 240)
CommandButton2.BackColor = RGB(0, 240, 0)
CommandButton3.BackColor = RGB(0, 240, 0)
CommandButton4.BackColor = RGB(0, 240, 0)
Sheets("sheet2").Activate
End Sub
Private Sub CommandButton2_Click()
Range("A1") = "Non"
CommandButton2.BackColor = RGB(0, 0, 240)
CommandButton1.BackColor = RGB(0, 240, 0)
CommandButton3.BackColor = RGB(0, 240, 0)
CommandButton4.BackColor = RGB(0, 240, 0)
End Sub
Private Sub CommandButton3_Click()
Range("A1") = "Non"
CommandButton3.BackColor = RGB(0, 0, 240)
CommandButton1.BackColor = RGB(0, 240, 0)
CommandButton2.BackColor = RGB(0, 240, 0)
CommandButton4.BackColor = RGB(0, 240, 0)
End Sub
Private Sub CommandButton4_Click()
Range("A1") = "Non"
CommandButton4.BackColor = RGB(0, 0, 240)
CommandButton1.BackColor = RGB(0, 240, 0)
CommandButton2.BackColor = RGB(0, 240, 0)
CommandButton3.BackColor = RGB(0, 240, 0)
End Sub
Private Sub CommandButton5_Click()
Range("A1") = "Non"
CommandButton4.BackColor = RGB(0, 240, 0)
CommandButton5.BackColor = RGB(0, 0, 240)
CommandButton5.BackColor = RGB(0, 240, 0)
End Sub