Ajout de ligne avec le format et formules de celle dessous

Bonjour à vous,

Voici , j'ai encore besoin d'un petit coup de main.

J'ai un code qui insère une ligne entre la 5 ime et 6ime lignes selon le nombre de lignes demandés, par contre, lors de l'insertion ,les formules ne sont pas copié. J'aimerais que le format et formules soit basé sur la ligne du dessous, donc la 6 ime.

Si quelqu'un à une idée comment,,, ca fait quelques heures que j'essaie de trouver mais je n'y arrive pas. La copie se fait toujours avec le format du dessus...

( ps le code n'est pas de moi, je n'ai aucun mérite...; )

Merci !

Sub Insererlignes()
'Macro Dan
Dim message As String, title As String
Dim nblg As Byte
message = "Entrez le nombre de lignes"
title = "Insérer lignes"
nblg = Application.InputBox(message, title, Type:=1)
If nblg = 0 Then MsgBox "Le nombre de lignes est à zéro": End
Rows("6").Resize(nblg, 1).EntireRow.Insert Shift:=xlDown

End Sub

Bonjour

Sans fichier test

Essaies

Sub Insererlignes()
'Macro Dan
Dim message As String, title As String
Dim nblg As Byte
  message = "Entrez le nombre de lignes"
  title = "Insérer lignes"
  nblg = Application.InputBox(message, title, Type:=1)
  If nblg = 0 Then MsgBox "Le nombre de lignes est à zéro": End
  Rows(6).Copy
  Rows("6").Resize(nblg, 1).Insert
  Application.CutCopyMode = False
End Sub

Désolé pour le fichier ...

Le voici , j'ai du simplifier ... merci encore pour ton aide.

Bonjour

Toujours avec la macro de Dan légèrement modifiée

Super !!!

Ca fonctionne tres bien, merci de m'avoir aidé pour une deuxième fois aujourd 'hui !!!!

C'est farfait !!!