Option Explicit
Public cel As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F2:F100")) Is Nothing Then
If Target.Value <> cel Then
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1
Else
MsgBox "Valeur identique"
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' mise en mémoire de la valeur initiale
cel = ActiveCell.Value
End Sub