Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(T, Range("A3:A" & Rows.Count)) Is Nothing Then
If Not IsError(Application.VLookup(T, [sDATA], 2, False)) Then
Application.EnableEvents = False 'on désactive
T(1, 2) = Application.VLookup(T, [sDATA], 2, False) 'on écrit la valeur du dépot
' on quitte le if sans exécuter Application.EnableEvents = True
Else
T(1, 2) = Application.VLookup(T, [sDATA], 2, False)
Application.EnableEvents = True
End If
End If
End Sub