copier et coller la dernière ligne d'une plage

Bonsoir visiteur,
est-ce que ce bouton te conviendrait?

Bonne nuit [file name=ecole.zip size=8889]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ecole.zip[/file]

Bonsoir pitchoune85, Jacou,

Si l'exemple ci-joint peut te dépanner...

J'ai utilisé la procédure ci-dessous :

Sub NouvLigne()
Dim L As Long
      Application.ScreenUpdating = False
      L = Sheets('Feuil1').Range('B65536').End(xlUp).Row
      Rows(L).Insert Shift:=xlDown
      Rows(L + 1).Copy Destination:=Rows(L)
      Rows(L + 1).ClearContents
      Cells(L + 1, 2).Select
      Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Cordialement, [file name=PourPitchoune85.zip size=9839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourPitchoune85.zip[/file]

Merci pour ton aide
en effet ça fonctionne bien dans ton exemple.
Entre temps, en fouillant sur le web et notamment excelabo, j'avias trouvé la solution suivante :

Sub NouvelleLigneEnDessous()
Columns(1).Find('*', , , , , xlPrevious).Offset(1, 0).Select
' Insère une ligne sous la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.Range('A2').EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range('A2').Select
End Sub

Je n' ai rien compris à la macro, mais ca marche alors c'est super. 😛
merci tout de même

Bonjour pitchoune85, Jacou,

Tant mieux si tu as trouvé solution à ton problème, c'est l'essentiel.

Je n'ai pas testé cette procédure, mais que devient ta zone nommée 'ecole' ?

Cordialement,