Faire correspondre Deux colonnes dans deux tableaux

Bonjour

Mon probléme est que j'ai deux tableau avec une colonne en commun , mais avec un nombre de lignes différents entre les deux, je m'explique :

TABLEAU 1 TABLEAU2

colonneA colonneA

TCA 2012 001 01 TCA 2012 001 01

TCA 2013 001 01 TCA 2013 001 01

TCA 2014 001 01 TCA 2016 001 01

TCA 2015 001 01 TCA 2015 001 01

TCA 2015 001 01 TCA 2013 001 01

TCA 2015 001 01 TCA 2015 001 01

je voudrais que mon tableau 2 ait les memes valeurs que le tableau 1, donc au final avoir ça:

TABLEAU 1

TCA 2012 001 01

TCA 2013 001 01

TCA 2015 001 01

TCA 2015 001 01

Salut Redha,

une façon de faire, à adapter à ton fichier!

A+

salut salut, dans le fichier que tu m'a envoyé j'ai un carré rouge et puis rien......

Salut Redha,

ah, bon? Et comme ceci. Plus de bouton, juste cliquer n'importe où...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Application.EnableEvents = False
'
iRow1 = Range("D" & Rows.Count).End(xlUp).Row
iRow2 = Range("F" & Rows.Count).End(xlUp).Row
'
For x = iRow2 To 1 Step -1
    iOK = 0
    For y = 1 To iRow1
        If Mid(Cells(x, "F"), 5, 4) = Mid(Cells(y, "D"), 5, 4) Then
            iOK = 1
            Exit For
        End If
    Next
    If iOK = 0 Then Cells(x, "F").Delete shift:=xlUp
Next
'
Application.EnableEvents = True
'
End Sub

A+

alors j'ai toujours rien, j'ai que les deux colonnes remplies, je ne comprend pas il est le probléme