Complément code VBA

Bonjour
j'ai fait un code VBA qui fonctionne pour copier des cellule à la ligne suivante mais sa marche qu'une fois je n'arrive pas à faire répéter le code à la prochaine ligne vide exenple il faudrait que la macro me recrée les lignes a chaque fois que je clique sur mon bouton de commande

Sub nouvelle_ligne()
'
' nouvelle_ligne Macro
' insersion d'une nouvelle ligne
'

'
Range("A26:E28").Select
Selection.Copy
Range("A29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A29:A31").Select
End Sub

Merci de votre aide

Bonjour Nic et

Il nous faudrait un fichier anonymisé pour que l'on comprenne comment le fichier est fait exactement

@+

Oui merci

je suis nouveau

Voici mon fichier

Re,

Voici 2 possibilités

Sub NouvellesLignes()
  Dim dLig As Long
  With Sheets("Facture")
    ' Colonne B pas de cellules remplies à part les lignes du devis
    ' Dernière ligne avec formule
    dLig = .Range("B" & Rows.Count).End(xlUp).Row
    ' Copier les 3 premières lignes
    .Range("A26:E28").Copy
    ' Coller les lignes en insérant de nouvelles
    .Range("A" & dLig + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
  End With
End Sub

Sub NouvellesLignesSansEnAjouter()
  Dim dLig As Long
  With Sheets("Facture")
    ' Colonne B pas de cellules remplies à part les lignes du devis
    ' Dernière ligne avec formule
    dLig = .Range("B" & Rows.Count).End(xlUp).Row
    ' Copier les 3 premières lignes dans la destination
    .Range("A26:E28").Copy Destination:=.Range("A" & dLig + 1)
    Application.CutCopyMode = False
  End With
End Sub

Attention, je ne fais pas de teste pour la fin du document

@+

merci sa marche impec

Oui j'ai parler un peu vite
code fonctionne mais la il insère les lignes a partir de la dernière créer quand je refait une nouvelle facture il repars au niveau des dernières lignes créée.

Re,

Il faudrait alors expliciter votre demande

@+