Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Column > 1 Then Exit Sub
With ActiveSheet.Range("A2:A" & Target.Offset(-1, 0).Row)
Set c = .Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
'Evite de rappeler l'évènement Change
[SIZE=3][COLOR=red]Application.EnableEvents = False[/COLOR][/SIZE]
Range(c.Offset(0, 1), c.Offset(0, 6)).Copy [COLOR=blue]Destination:=Range(Target.Offset(0, 1), Target.Offset(0, 6))[/COLOR]
[COLOR=black]'Rétablit la gestion des évènements[/COLOR]
[SIZE=3][COLOR=red]Application.EnableEvents = True[/COLOR][/SIZE]
Application.CutCopyMode = False
Target.Offset(1, 0).Select
End If
End With
End Sub