Nath39 a écrit :
Merci h2so4 et comment fait-on si le fichier a 12000 lignes ? Il y a une astuce ?
Merci bcp !
si le fichier fait 12000 lignes au lieu de 14 il faut remplacer 14 par 12000 dans l'instruction
Sub aargh()
ActiveSheet.Range("$A$1:$T$14").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Header:=xlNo
End Sub
et donc le code devient
Sub aargh()
ActiveSheet.Range("$A$1:$T$12000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Header:=xlNo
End Sub