Transfert de données

Bonjour à tous,

Voici, le problème au quel je suis confronté et que j'espère pouvoir résoudre avec votre aide.

Sur un fichier deux feuilles de calcul feuil1 et feuil2:

Si dans la cellule A1 feuil1 j'écris une donnée exemple 123 j'aimerais que cette dernière soit reportée dans la colonne B de la feuil2.

Jusque là rien de trop compliqué.

Là arrive mon problème ce que j'aimerais faire c'est que cette donnée (123) ne soit recopiée dans la feuille2 colonne B que si cette dernière n'y figure pas.

et qu'elle soit ignorée si elle est déjà présente.

D'ores et déjà, merci de toute votre aide et vous souhaite une excellente fin de week-end

Hello,

En attendant de lire une réponse "plus élaborée" :)

Bonne soirée !

Bonsoir,

Un essai dans le fichier joint

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target = "" Or Target.Address <> "$A$1" Then Exit Sub
With Feuil2
    If IsError(Application.Match(Target, .Columns(2), 0)) Then
        .Cells(Rows.Count, 2).End(xlUp)(2) = Target
    End If
End With
End Sub

Bonne fin de W-E....

Excellent,

Merci de vos promptes réponses.

Je viens d'essayer le code de COUSINHUB et ce dernier fonctionne parfaitement.

Merci encore à tous les deux et une excellente fin de soirée.