Pour btn ajoute

bonjour,

je suis entrain de mettre un rapport semi-automatique :

1-je fait une recherche sur un e Bdd.

2-il affiche sur une ligne.

3- puis btn ajouter en (Macros=copie ligne"n"+copie sur ligne"n"+1 la formule de la ligne "n"-1+copie ligne "n" collez les Valeur+ il efface la cellule de recherche)

voila le scipte en VBA:

Sub MacroAjout()
'
' MacroAjout Macro
'

'
    Selection.Copy
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A7:R7").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.LargeScroll ToRight:=-1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

ce que je cherche je veux il passe a la ligne vide pour faire cette action

Range("A8").Select

Bonsoir Kheiroran

A+

voila le fichier