Macro efficace copier des lignes non vides à la suite des autres

[PapyPolo]

Bonsoir à tous,

Hormis enregistrer des macros via l'assistant mon niveau en VBA est nul.
Mon classeur a besoin de cette unique macro pour être bouclé alors j'ai pensé solliciter votre aide.

Plutôt que de longues tirades, mon besoin, à priori simple, est illustré dans le classeur joint en annexe.

Une requête additionnelle serait que la macro soit le plus efficace possible (au sens rapide) car elle scannera en réalité une hauteur de 20000 lignes et je pourrais avoir à m'en servir toutes les 3 minutes.

Un grand merci d'avance si vous pouvez me débloquer.
Salutations

 

[Staple1600]

Re : Macro efficace copier des lignes non vides à la suite des autres

Bonsoir à tous

PapyPolo [Bienvenue sur le forum]
Vois ce que cette macro t'inspire

Sub Macro1()
Range("C1:F10").SpecialCells(xlCellTypeFormulas, 1).Copy
Range("J1").PasteSpecial Paste:=xlPasteValues
End Sub

 

[PapyPolo]

Re : Macro efficace copier des lignes non vides à la suite des autres

Un bonheur simple

J'étais parti sur quelque chose de plus compliqué alors je ne regrette pas d'avoir fait appel.

Merci...excellente fin d'année