Copier valeur

Bonjour,

J'ai une valeur en B14 en feuil1, et cette valeur change, je voudrais la copier dans la feuil2 à chaque changement et les une à la suite des autres.

Cdlt.

bonsoir

une solution à mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
dim dl as integer

If Target.Address(0, 0) = "B14" Then
    With Sheets("feuil2")
        dl = .Range("a65536").End(xlUp).Row + 1
        .Cells(dl, 1) = Target
    End With
End If
End Sub

a plus