Private Sub CommandButton1_Click()
ActiveCell = "A"
End Sub
Private Sub CommandButton2_Click()
ActiveCell = "C"
End Sub
Private Sub CommandButton3_Click()
ActiveCell = "B"
End Sub
Private Sub CommandButton4_Click() 'Valider
TextBox1 = Abs(Int(Val(TextBox1)))
If TextBox1 = 0 Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
Dim c As Range, x$, pas%
Set c = ActiveCell
x = c
If x = "" Then MsgBox "Cliquez sur A B ou C...": Exit Sub
pas = TextBox1
While c.Column <= 27 'colonne AA
c = x
c.Interior.ColorIndex = 6 'jaune
Set c = c(1, 1 + pas)
Wend
Unload Me
End Sub
Private Sub CommandButton5_Click() 'RAZ
With [B2:AA26]
.ClearContents
.Interior.Color = RGB(255, 242, 204)
End With
End Sub