[XL-2007] supprimer lignes doublons

[pierrof]

Bonsoir

Voici un code qui permet de supprimer les doublons de la colonne A de la feuille B.

Mais il ne fonctionne pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'activer feuille B
 
Worksheets("B").Activate
 
'Effacer doublons
 
MaCellule = ("A2")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
 
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend

J'ai une erreur d'exécution

Merci de votre aide

[mercatog]

Tu es en Xl 2007, utilise plutôt ceci

Code :

Worksheets("B").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes