Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Not Application.Intersect(Range("A1:A65536"), Target) Is Nothing Then
For Each Cellule In Application.Intersect(Range("A1:A65536"), Target)
Sheets("Feuil2").Range(Cellule.Address).Value = Cellule.Value
Next Cellule
End If
End Sub