Option Explicit
Sub CopieSiCorrespond()
Dim Cpt1 As Long
Dim Cpt2 As Long
Dim PosDansB As Variant
Dim Ligne As Long
Application.ScreenUpdating = False
Feuil2.Range("A:A").Clear
Ligne = 1
For Cpt1 = 1 To Feuil1.Range("A65536").End(xlUp).Row ' Pour toutes les lignes de la colonne A
PosDansB = Application.Match(Feuil1.Range("A" & Cpt1).Value, Feuil1.Range("B:B"), 0) ' Recherche la position dans B de la valeur trouvée dans A à la ligne Cpt1
If Not (IsNumeric(PosDansB)) Then ' Si l'on ne trouve rien
For Cpt2 = 1 To Feuil2.Range("A65536").End(xlUp).Row ' On scrute la feuille 2 pour voir si existe déja dans la colonne A
If Not (IsNumeric(Application.Match(Feuil1.Range("A1").Offset(Cpt1 - 1, 0).Value, Feuil2.Range("A:A"), 0))) Then ' Si pas trouvé
Feuil2.Range("A" & Ligne).Value = Range("A1").Offset(Cpt1 - 1, 0).Value ' On l'écrit
Feuil2.Range("A" & Ligne).Font.ColorIndex = 3 ' en rouge, dans la colonne A de la feuille 2
Ligne = Ligne + 1
End If
Next Cpt2
End If
Next Cpt1
Application.ScreenUpdating = True
End Sub