<HTML>Salut Francis,
deux moyens differents :
111) le filre élaboré (Menu / Données / Filtre / Filtre élaboré)
Cocher "Extraction sans doublon" ...
222) une macro VBA dans ce style : (attention la macro change la disposition de ton tableau avec un tri en colonne A, en supposant que tu as 1000 lignes)
Sub Nettoyage()
Columns("A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
colIndex = 1
For rwIndex = 1 To 1000
If Cells(rwIndex, colIndex) = Cells(rwIndex + 1, colIndex) Then
Cells(rwIndex, colIndex).EntireRow.ClearContents
End If
Next rwIndex
Columns("A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
Range("a1").Select
End Sub
IL y a beaucoup mieux à faire avec EntireRow.Delete, mais j'ai un problème, car la range se décale au fur et à mesure que les rows sont supprimées...
Enfin comme çà fait un peu système D mais çà le fait...
(attention à élargir les "Columns("A").Select" à "Columns("A:X").Select" si tu travailles sur un tableau à plusieurs colonnes
@+Thierry
Bon Week End</HTML>