Vba +

Bonjour,

j'ai une erreur dans la ligne .Range("A" & Lig).Paste du code suivant !

Sub nouv()
Dim NbrLig2 As Long
Dim Lig As Long

Sheets("Copie temp2").Activate


With Sheets("Copie temp2") ' feuille source
NbrLig2 = .Cells(65536, 1).End(xlUp).Row
Lig = NbrLig2 + 1

.Cells(NbrLig2, 1).EntireRow.Copy
.Range("A" & Lig).Paste ' chercher ce qui me colle la ligne total
.Cells(NbrLig2 + 1, 1).Value = "Total -En cours-"

End With



End Sub

Merci bcp !!

bonne soirée :-)