Sub Bouton1_QuandClic()
Dim tablo1 As Variant
Dim tablo2 As Variant
Dim tablores() As String
Dim i As Integer, j As Integer
'création des 2 tableaux provisoires
tablo1 = Sheets('feuil1').Range('a1').CurrentRegion
tablo2 = Sheets('feuil2').Range('a1').CurrentRegion
'dimensionnement du tableau final
ReDim tablores(1 To UBound(tablo1, 1) + UBound(tablo2, 1), UBound(tablo1, 2) + UBound(tablo2, 2))
'renvoi du premier tableau dans le tableau de résultat
For i = 1 To UBound(tablo1, 1)
For j = 1 To UBound(tablo1, 2)
tablores(i, j) = tablo1(i, j)
Next j
Next i
'renvoi du deuxième tableau dans le tableau de résultat à la suite du premier tableau (i + UBound(tablo1, 1))
For i = 1 To UBound(tablo2, 1)
For j = 1 To UBound(tablo2, 2)
tablores(i + UBound(tablo1, 1), j) = tablo2(i, j)
Next j
Next i
'Sheets('feuil3').Range('a1').Resize(UBound(tablores, 1), UBound(tablores, 2)) = tablores
End Sub