cop-col avec une macro

problème déjà abordé ici, voilà notamment comment tu peux faire

Set rg_plage = Cells
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With

'sélectionne la dernière ligne
Cells(LastL, LastC).EntireRow.select

'copie exactement la dernière ligne sans incrémenter les formules
'Cells(LastL, LastC).EntireRow.Offset(1).Formula = Cells(LastL, LastC).EntireRow.Formula

'pour copier les formules comme il le faut, utilise la méthode copy

bye
stephane