Bonsoir,
Exécute ce code essaie de comprendre la façon dont il fonctionne :
Sub CollageValeur()
Dim Lig As Long, DernLig As Long, sColDeb As String, sColFin As String, rCelluleActive As Range
' Inititalisation
Set rCelluleActive = ActiveCell
Lig = 2
sColDeb = "C"
sColFin = "HK"
DernLig = Range("C" & Rows.Count).End(xlUp).Row + 1
' Copie
Application.ScreenUpdating = False
Range(sColDeb & Lig & ":" & sColFin & Lig).Copy
Range(sColDeb & DernLig & ":" & sColFin & DernLig).PasteSpecial xlPasteValues
Application.CutCopyMode = False
rCelluleActive.Select
Application.ScreenUpdating = True
End Sub
A chaque fois que tu lanceras la macro, cela créera une ligne supplémentaire.
A+
Benead