If 'Source' value is Sheets("Facture").Range("K2").Value,
AND Sheets("Summary") is empty except for headings in Row1,
then this...

Sub CopyData()
Dim lLastRow As Long
With Sheets("Summary")
lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(lLastRow + 1, "A").Value = _
Sheets("Facture").Range("K2").Value
End With
End Sub

...puts the 'Source' value into Sheets("Summary").Range("A2")! Next
round it puts the value into 'A3', ..and so on.

--
Garry

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