Sub copieréel()
Dim j, i
j = 1
For i = 1 To 10
Sheets('Feuil1').Select
Cells(2, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('feuil3').Select
line1:
Cells(3, j + 13).Select
If ActiveCell.Value = '' Then
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else
Cells(3, j + 14).Select
j = j + 1
GoTo line1
End If
Next i
End Sub