XL 2021 Doublons

[JohnBill]

Bonjour à tout le forum.
Oui, je sais, le sujet a été traité maintes fois et j'ai consulté tous les sujets les concernant sans trouver mon bonheur alors que je suis sur qu'il y a une solution simple par VBA.
J'utilise la commande "Supprimer les doublons" dans chacune de mes feuilles qui contiennent des informations très différentes les unes des autres et uniquement sur la colonne C. Comme j'ai pas mal de feuilles, cela est un peu fastidieux. J'aimerai une macro qui supprime les différents doublons sur toutes les feuilles en même temps. (Je précise que les doublons sont différents sur chacune des feuilles car j'avais une solution qui supprimait les doublons de toutes les feuilles mais doublons identiques). Je joint un petit fichier auquel j'ai supprimé des feuilles pour exemple.
Merci de m'apporter une solution qui me facilitera le travail.

 

[sylvanu]

Bonjour JohnBill,
Essayez avec :

Sub SupDoublons()
For Each F In Worksheets
    Sheets(F.Name).[A:F].RemoveDuplicates Columns:=3, Header:=xlNo
Next F
End Sub

 

[JohnBill]

Merci sylvanu. Dans ce fichier exemple cela fonctionne parfaitement. Pour le moment j'ai un planning hospitalier très chargé mais je l'essaierai ultérieurement sur mon fichier.