Bonsoir,
Je vois que tu réfléchis...
Essaie ta macro remaniée ainsi :
Sub Macro()
Dim Lg%, i%, fdata As Worksheet
Set fdata = ActiveSheet
' Créer feuille Doublon
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Doublon"
' Récupérer les données
With fdata
Lg = .Cells(.Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
.Range("A2:F" & Lg).Copy Worksheets("Doublon").Cells(1, 1)
End With
' Suprimer les doublons
With Worksheets("Doublon")
For i = Lg To 2 Step -1
If WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete
Next i
.UsedRange.Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub
Elle va copier ta base (limitée à F) sur Doublon, et éliminer les doublons sur cette feuille, en laissant ta base intacte. Ce qui devrait être plus conforme à ton souhait.
Bonne soirée
Ferrand