Bonjour,

Je voudrais créer une macro qui permette de supprimer automatiquement les mots (et la ligne entière qui en découle) qui se répettent plusieurs fois dans une même colonne.

J'ai pensé à cet algorithme détaillé, mais je ne réussis pas à le faire fonctionner sous Excel, pourriez-vous m'aider s'il vous plaît? :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim i As Integer
Dim j As Integer
Dim chaine1 As String
Dim chaine2 As String
 
i = 1
do
 
J = i
Chaine1 = (A, i). Select, 
 	do 
	J = J+1
             ''rechercher selection : quand mot = selection, sélectionner la ligne  entière puis supprimer
             Chaine2 = (A, j). Select, 
             If Chaine2=chaine1
             Then Rows.Select
   	selection.delete
             while J < 81
 
While I < 82