Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long, C As Byte
If Not Application.Intersect(Target, Range('A1,B4,F5,S8')) Is Nothing Then
C = Target.Column + 1
I = Worksheets('Feuil2').Cells(65535, C).End(xlUp).Row + 1
Worksheets('Feuil2').Cells(I, C) = Target.Value
End If
End Sub