XL 2010 Comptez le nombre total de clics dans une cellule spécifiée dans Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  ' Sinon
  If Not Intersect(Range("E2"), Target) Is Nothing Then
    ActiveSheet.Unprotect
    Range("H2").Value = Range("H2").Value + 1
    ActiveSheet.Protect
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  ' Sinon, dans la colonne E2:Ex
  If Not Intersect(Range("E2:E" & Rows.Count), Target) Is Nothing Then
    ActiveSheet.Unprotect
    Range("H" & Target.Row).Value = Range("H" & Target.Row).Value + 1
    ActiveSheet.Protect
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nm As Name
Dim FlagNm As Boolean

For Each Nm In ThisWorkbook.Names
    If Nm.Name = "Compteur" Then
        FlagNm = True
        Exit For
    End If
Next Nm

If Not FlagNm Then ThisWorkbook.Names.Add Name:="Compteur", RefersToR1C1:="0", Visible:=True

If Not Intersect(Range("E2:H" & Rows.Count), Target) Is Nothing Then
    With ThisWorkbook
        Tmp = Replace(.Names("Compteur").Value, "=", "")
        Tmp = Tmp + 1
        .Names("Compteur").Delete
        .Names.Add Name:="Compteur", RefersToR1C1:=Tmp
    End With
End If
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Nm As Name
Dim FlagNm As Boolean
Dim Tmp&

For Each Nm In ThisWorkbook.Names
    If Nm.Name = "Compteur" Then
        FlagNm = True
        Exit For
    End If
Next Nm

If Not FlagNm Then ThisWorkbook.Names.Add Name:="Compteur", RefersToR1C1:="0", Visible:=True

If Not Intersect(Range("E2:H" & Rows.Count), Range(Target.Range.Address)) Is Nothing Then
    With ThisWorkbook
        Tmp = Replace(.Names("Compteur").Value, "=", "")
        Tmp = Tmp + 1
        .Names("Compteur").Delete
        .Names.Add Name:="Compteur", RefersToR1C1:=Tmp
    End With
End If
End Sub