Private Sub Worksheet_Change(ByVal Target As Range)
With [B6]
If Intersect(Target, .Cells) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'sécurité
.Formula = "=INDEX(scac_code," & Application.Match(.Value, [scac_code], 0) & ")"
Application.EnableEvents = True 'réactive les évènements
End With
End Sub