Microsoft 365 Comptabilisation de commandes

Sub Efacer()
[F:F].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [A2:A100]) Is Nothing Then
        Dim L%
        L = Application.Match(Target, [E1:E100], 0)
        Cells(L, "F") = Cells(L, "F") + 1
        Cells(L, "B").Select
    End If
Fin:
End Sub

Sub Efacer()
[B2:B100].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin2
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [A2:A100]) Is Nothing Then
        Dim L%
        L = Target.Row
        Cells(L, "B") = Cells(L, "B") + 1
        Cells(L, "C").Select
    End If
Fin2:
End Sub

Sub Efacer()
[D2:D100].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin2
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [B2:C100]) Is Nothing Then
        Dim L%, C%
        L = Target.Row: C = Target.Column
        If C = 2 Then
            Cells(L, "D") = Cells(L, "D") + 1
        Else
            Cells(L, "D") = Cells(L, "D") - 1
            If Cells(L, "D") <= 0 Then Cells(L, "D") = ""
        End If
        [D1].Select
    End If
Fin2:
End Sub