Bizarrement si je complète d'abord la colonne "H" puis la "E" cela fonctionne mais dans le sens normal non
Je ne vois pas l'erreur dans le code :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("E2:E100")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Target.Offset(0, 2).ClearContents
If (Target.Value - Target.Offset(0, 3).Value) < -30 Then
Target.Offset(0, 2).Value = "Attention VR"
MsgBox "Attention Nélio : le véhicule est une Reconversion"
End If
End Sub