Slightly different approach if you want to increment rows continually
once the first blank row has been established..

Sub CopyData2()
Dim lNextRow As Long
With Sheets("Summary")
lNextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Cells(lNextRow, "A").Value = Sheets("Facture").Range("K2").Value
lNextRow = lNextRow + 1
.Cells(lNextRow, "A").Value = Sheets("Facture").Range("K3").Value
lNextRow = lNextRow + 1
'..and so on
End With
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc