Private Sub Worksheet_Change(ByVal Target As Range)
    'Désactive l'évènement
    Application.EnableEvents = False
    'modification dans la cellule A1
    Range("A1") = Range("A1") + 1
    'Réactive l'évènement
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
  MsgBox "Vous avez double cliqué sur la cellule " & Target.Address 
  Cancel = True 
End Sub 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Byte
    Dim oAnime As Balloon
    
    Cancel = True
    
    Assistant.Move 400, 500
    Assistant.On = True
    
    Set oAnime = Assistant.NewBalloon
         
    With oAnime
        .Animation = msoAnimationEmptyTrash
        .Button = msoButtonSetOK
        .Heading = "Ceci est un message personnalisé."
        .Text = "Sélectionnez une option dans la liste ci dessous:"
            
         .CheckBoxes(1).Text = "VB"
         .CheckBoxes(2).Text = "VBA"
         .CheckBoxes(3).Text = "ACCESS"
        
        .Show
        
        For i = 1 To 3
            If .CheckBoxes(i).Checked = True Then
                Select Case i
                    Case 1
                      Target = .CheckBoxes(1).Text
                    Case 2
                      Target = .CheckBoxes(2).Text
                    Case 3
                      Target = .CheckBoxes(3).Text
                End Select
                
                Exit For
            End If
        Next i
    
    End With
    
    Assistant.Visible = False
    Assistant.On = False
    Set oAnime = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    '(sinon la suite de la macro renvoie un message d'erreur)
    If Target.Count > 1 Then Exit Sub
    
    MsgBox "Vous venez de modifier la cellule " & Target.Address & _
        " (" & Target.Value & ")"
        
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    MsgBox Target.Address & vbCrLf & Target.SubAddress
End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    MsgBox "Le TCD '" & Target.Name & "' a été mis à jour."
End Sub	

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Range("A1") = "" Then Range("A1").Select 
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plage As Range
    
    If Target.Cells.Count > 1 Then
        MsgBox "Sélectionnez une seule cellule."
        Exit Sub
    End If
    
    
    Set Plage = Range("B5:E20")
    
    If Application.Intersect(Target, Plage) Is Nothing Then
        MsgBox "Hors cible."
    Else
        MsgBox "Dans la cible."
    End If
End Sub

Option Explicit 

Dim x As Integer 
Dim Cell As String 



Private Sub Worksheet_Activate() 
        x = ActiveCell.Interior.ColorIndex 
        Cell = ActiveCell.Address 
End Sub 



Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    On Error Resume Next 
    
    If Cell = "" Then 
        x = Target.Interior.ColorIndex 
        Cell = Target.Address 
        Exit Sub 
    End If 
    
    If Range(Cell).Interior.ColorIndex <> x Then _ 
        MsgBox "la couleur de la cellule " & Cell & " a changé" 
    
    x = Target.Interior.ColorIndex 
    Cell = Target.Address 
End Sub