Insertion ligne APRES dernière ligne saisie

PtiCaro

XLDnaute Nouveau
Bonjour forumeuses et forumeurs,
après plusieurs recherches sur ce site, je n'ai pas réussi à trouver comment insérer une ligne APRES la dernière ligne saisie dans mon tableau.
J'ai créé un bouton lié à une (toute) petite maro qui m'insère une ligne en recopiant formules et formats, et en effaçant les données déjà saisies, mais la ligne est toujours insérée au même endroit, voyez plutôt:

Sub Macro7()
'Macro7 Macro
'
Rows("20:20").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A21:G21").Select
Selection.Copy
Range("A20:G20").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
Application.CutCopyMode = False
Range("A20").Select
Selection.ClearContents
Range("B20").Select
Selection.ClearContents
Range("C20").Select
Selection.ClearContents
Range("D20").Select
Selection.ClearContents
End Sub

Il est assez flagrant que mes connaissances en VBA sont inexistantes; quelqu'un peut-il m'aider à rendre cela moins "statique", et à aller chercher la dernière ligne remplie du tableau, quelque soit son N° ???
Merci
 

Statistiques des forums

Discussions
313 258
Messages
2 096 614
Membres
106 685
dernier inscrit
phob