Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 14 Then Exit Sub
Dim noms As Range, L As Long
Set noms = Range("A14", [A65536].End(xlUp))
L = Target.Row - noms.Row + 1
Copie noms, Intersect(noms.EntireRow, [B:D]), L
Copie noms, Intersect(noms.EntireRow, [F:H]), L
End Sub
Sub Copie(noms As Range, plage As Range, L As Long)
Dim i As Variant
Application.EnableEvents = False
i = Application.Match(plage(L, 2), noms, 0)
If IsNumeric(i) Then
plage(i, 2) = noms(L)
plage(i, 1) = plage(L, 3)
plage(i, 3) = plage(L, 1)
End If
Application.EnableEvents = True
End Sub