Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 1 Then
Set c = Feuil1.Columns(1).Find(Target)
If Not c Is Nothing Then
Set r = Application.Union(c.Offset(, 2), c.Offset(, 8), c.Offset(, 9))
r.Copy Target.Offset(, 1)
End If
End If
End Sub