Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/09/2011 par Luck
'
Dim CDéb As Range, CFin As Range, L As Long
Set CDéb = Range("A1"): L = 0
Do
Set CFin = CDéb.End(xlDown)
Range(CDéb, CFin).Copy
L = L + 1
Sheets("Résultat").Cells(L, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Set CDéb = CFin.End(xlDown)
Loop Until CDéb.Row >= 65536
End Sub