Bonjour à toutes et tous,
Je post sur votre forum, car j'ai un code que j'aimerais optimiser.
J'ai une macro VBA qui me permet d'extraire les données d'une colonne ("E2 : jusqu'à la fin") feuille 1 pour les copier/coller dans une colonne feuille 2 : (A5 : jusqu'à la fin de la sélection).
Ma macro permet ensuite d'extraire les doublons, sans l'entête.
J'ai une ligne de mon code que j'aimerais optimiser pour éviter de me retrouver avec 30000 lignes de créées lorsque le résultat s'affiche dans la feuille 2, ce qui permettrait d'éviter de naviguer à la vitesse de la lumière
Voici mon code :
Sheets(1).Select
' Range("E2:E30000").Select
' Code que j'utilisais avant, et que j'ai changé par les deux lignes suivantes ==> Ici, ça fonctionne.
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets(3).Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
[b] ActiveSheet.Range("$A$5:$A$30003").RemoveDuplicates Columns:=1, Header:=xlNo
' ActiveSheet.Range("$A$5:A" & [A65000].End(xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo
' Cette ligne le fonctionne pas et je ne sais pas pourquoi, avec la remarque "erreur définie par l'application ou par l'objet" [/b]
Sheets(3).Select
Range("A1").Select
Avez-vous une idée pour rendre ma macro plus précise et plus flexible ?
A +