Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Source.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Feuil3.Cells(Application.Match(Source, Feuil3.[A:A], 0), 1).Copy Source
Application.EnableEvents = True
End Sub