Bonjour,
Une proposition avec la méthode 'Supprimer les doublons'
Cdlt.
Public Sub Bouton1_Cliquer()
Dim ws As Worksheet, lRow As Long, bln As Boolean
' Gel affichage
Application.ScreenUpdating = False
' Supression valeurs existantes
ActiveSheet.Cells(1).CurrentRegion.ClearContents
bln = False
For Each ws In ActiveWorkbook.Worksheets(Array("Feuil1", "Feuil2"))
If bln = False Then
' Copie avec en-têtes de colonnes (Feuil1)
ws.Cells(1).CurrentRegion.Columns(1).Copy Destination:=ActiveSheet.Cells(1)
bln = True
Else
' Calcul ligne pour recopie (derniere ligne non vide +1)
lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
' Copie sans en-têtes de colonnes (Feuil2)
ws.Cells(1).CurrentRegion.Columns(1).Offset(1, 0).Copy Destination:=ActiveSheet.Cells(lRow, 1)
End If
Next ws
With ActiveSheet.Cells(1)
' Tri
.Sort key1:=.Cells(2, 1), order1:=xlAscending, Header:=xlYes
' Suppression doublons
.CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
End With
End Sub