Bonjour,
voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveCell.Offset(0, 1) = Application.WorksheetFunction.VLookup(Range("A7"), Range("A1:B5"), 2, False) 'offset(0,1): 1 cellule à droite sur la même ligne que la cellule active
End...