Supprimer les doublons

Bonjour,

Je veux supprimer les doublons d'une plage que je détermine au préalable.

Dans la plage il n'y a pas de titre.

Voici le code

"

Dim PlageDoublon, As Range

Dim ColCat as string

Dim Spp As Worksheet

Set Spp = Worksheets("lol")

ColCat = Spp.Rows(1).Find(Nom_Cat, , , , , , xlPrevious).Column
LigneFin = Spp.Cells(Rows.Count, ColCat).End(xlUp).Row

Set PlageDoublon = Spp.Range(Cells(2, ColCat), Cells(LigneFin, ColCat))
PlageDoublon.Select
ActiveSheet.Range(PlageDoublon.Address).RemoveDuplicates Columns:=ColCat, Header:=xlNo

"

Quand je lance la macro il me met un message d'erreur à la partie soulignée 'Erreur définie par l'application ou par l'objet'

A quoi est dû cette erreur? Je ne peux pas mettre le fichier car trop de données confidentielles.

Merci d'avance

Agrimaman

Agrimaman a écrit :

Je ne peux pas mettre le fichier car trop de données confidentielles.

Bonjour,

N'hésite pas à faire un jeu d'essai

Dans ton code, cette ligne est en erreur, pas de virgule !

Dim PlageDoublon, As Range

Que contient Nom_Cat ?

Dim PlageDoublon As Range

Dim ColCat As Integer
Dim Spp As Worksheet
Set Spp = Worksheets("lol")

Nom_Cat = "titre"
ColCat = Spp.Rows(1).Find(Nom_Cat, , , , , , xlPrevious).Column
LigneFin = Spp.Cells(Rows.Count, ColCat).End(xlUp).Row

Set PlageDoublon = Spp.Range(Cells(2, ColCat), Cells(LigneFin, ColCat))
PlageDoublon.Select
ActiveSheet.Range(PlageDoublon.Address).RemoveDuplicates Columns:=1, Header:=xlNo

IL faut mettre 1 et non colcat car c'est en relatif par rapport à la plage

Columns:=1

Bonjour Steelson

Ok je test et je regarde

Agrimaman

Ok ça marche nickel!

Merci

Agrimaman