gestions doublons excel

[Demanda]

Bonjour à toutes et à tous,

J'ai un problème avec un code concernant la gestion des doublons. Actuellement, ce dernier me permet de trier les données d'une seule colonne puis de supprimer les doublons.
Je n'arrive malheureusement pas à le changer de telle sorte qu'il trie les données de plusieurs colonnes. Ci joint mon code.

Merci d'avance de votre aide

Option Explicit

Sub test()
SupressionDoublonColonne
End Sub

Sub SuppressionDoublonColonne(NumCol As Integer)

Dim cible As Range, suivant As Range

Application.ScreenUpdating = False

With Columns(NumCol)
.Cells(1, 1).Sort Key1:=.Cells(1, 1), Order:=xlAscending
Set cible = .Cells(1, 1)
Do
Set suivant = cible.Offset(1, 0)
If suivant = cible Then cible.Delete xlUp
Set cible = suivant
Loop
End With

Application.ScreenUpdating = True

End Sub