Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule A1 vient d'être modifiée alors
If Target.Address = '$A$1' Then
'chercher le numéro de la première ligne vide dans Feuil2 Colonne2
'et stocker ce numéro dans une variable i
i = Worksheets('Feuil2').Cells(65535, 2).End(xlUp)(2).Row
'Alors mettre Feuil2(ligne i, colonne 2)= Target.Value
Worksheets('Feuil2').Cells(i, 2) = Target.Value
'C'est tout.
End If
End Sub