Sub Worksheet_Change(ByVal Target As Range)
' On arrive ici quand on modifie une valeur dans une cellule de la Feuil2
On Error GoTo Fin ' Si erreur on sort
If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules sélectionnées on sort
If Not Intersect(Target, Range("A2:A37")) Is Nothing Then ' Si la cellule modifiée est dans la plage A2:A37
Application.EnableEvents = False ' On bloque les events pour éviter toute ré-entrance
Ligne = Application.Match(Target, Sheets("BASE").Range("A:A"), 0) ' On cherche à quelle ligne est le mot cherché
For Col = 2 To 8 ' On transfert la ligne
Cells(Target.Row, Col) = Sheets("BASE").Cells(Ligne, Col)
Next Col
Cells(Target.Row, "B").Select
End If
Fin:
Application.EnableEvents = True ' On remet les events correctement
End Sub