Private Sub polymorphisme()
' Methode polymorphisme
Dim tb1 As Range, tb2 As Range, tb3() As Variant
Set tb1 = Range("A1:B" & [A100].End(xlUp).Row)
Set tb2 = Range("E1:F" & [E100].End(xlUp).Row)
ReDim tb3(1 To 2)
tb3(1) = tb1
Cells(65536, 9).End(xlUp).Rows.Resize(UBound(tb3(1), 1), UBound(tb3(1), 2)) = tb3(1)
tb3(2) = tb2
Cells(tb1.Rows.Count + 1, 9).Resize(UBound(tb3(2), 1), UBound(tb3(2), 2)) = tb3(2)
End Sub