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 :-)

Configuration: Windows XP
Internet Explorer 6.0