Copier - Coller dernière ligne vide

Bonjour,

Je voudrai utiliser une macro afin de copier coller des lignes vers un fichier d'import.

Je voudrai rendre la macro suivante dynamique à savoir remplacer:

A2 par A[numéro dernière ligne vide] afin de pouvoir utiliser la macro plusieurs fois desuite.

Sub Macrosaisie()

'

' Macrosaisie Macro

'

' Keyboard Shortcut: Ctrl+l

'

Range("AB11:AX12").Select

Application.CutCopyMode = False

Selection.Copy

Windows("import.xlsx").Activate

Range("A2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.SmallScroll Down:=-33

End Sub

merci beacoup

Bonsoir,

Une solution :

passer par une variable pour stocker la dernière ligne vide

Et ensuite, remplace "A2" par "A & iLig"

iLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & iLig).Select

Dans le code fourni, fait avec l'enregistreur de macro, il faudrait faire un peu de ménage !

Notamment les ".select", "selection", "activate", ...

Et la ligne suivante à enlever :

ActiveWindow.SmallScroll Down:=-33

Bouben

Super ça fonctionne!

Pour faire le ménage... merci du conseil. pour l'instant je début et j'utilise bcp l'enregistreur..

merci encore