Private Sub Worksheet_Change(ByVal T As Range)
Dim vArr
'remplir vArr sur le même principe
vArr = Array(Array("A", "toto"), Array("B", "titi"), Array("C", "tutu"), Array(1600, "Staple"))
If T.Column = 9 Then
If Not IsError(Application.VLookup(T, vArr, 2, 0)) Then
T(1, 4) = Application.VLookup(T, vArr, 2, 0)
End If
End If
End Sub