Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [C4,F4]) Is Nothing Then [A1].Select
If Not Intersect(Target, [C4]) Is Nothing Then BoutonPlus
If Not Intersect(Target, [F4]) Is Nothing Then BoutonMoins
End Sub
Sub BoutonPlus()
MsgBox "Bonjour"
End Sub
Sub BoutonMoins()
MsgBox "Au revoir"
End Sub