Sub bb()
Dim S As Worksheet
Dim QT As QueryTable
Dim i&
Dim MaConnection As String
Dim MesPages As Variant
Dim var()
Dim Deb&
Dim Fin&
Dim R As Range
'---
Set S = ActiveSheet
S.Cells.Delete
'---
MaConnection = "URL;http://www.excel-downloads.com"
MesPages = Array(20, 23, 27)
'---
Set QT = ActiveSheet.QueryTables.Add(Connection:=MaConnection, Destination:=Range("$A$1"))
For i& = LBound(MesPages) To UBound(MesPages)
QT.WebTables = CStr(MesPages(i&))
QT.Refresh BackgroundQuery:=False
'---
ReDim Preserve var(0 To i&)
var(i&) = ActiveSheet.UsedRange
Next i&
'---
S.Cells.Delete
Deb& = 1
For i& = LBound(var) To UBound(var)
Fin& = Fin& + UBound(var(i&), 2)
Set R = S.Range(S.Cells(1, Deb&), S.Cells(UBound(var(i&), 1), Fin&))
R = var(i&)
Deb& = Fin& + 1
Next i&
End Sub