Sub DelDup()
Dim Nc() As Variant, Lr As Long, Lc As Long, Plage As Range, I As Integer
' On récupère la dernière ligne renseignée
Lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
' On récupère la dernière colonne renseignée
Lc = ActiveSheet.Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
' Plage de cellules concernée
Set Plage = Range(Cells(1, 1), Cells(Lr, Lc))
' On supprime toute référence au nom de feuille active dans les formules
Plage.Replace What:="'" & ActiveSheet.Name & "'!", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
' On supprime les Doublons
ReDim Nc(Plage.Columns.Count - 1): For I = 0 To Plage.Columns.Count - 1: Nc(I) = I + 1: Next
Plage.RemoveDuplicates Columns:=(Nc), Header:=xlYes
End Sub