XL 2016 Transformer tableau en un autre

Option Explicit
'inspirer de ce lien: https://www.youtube.com/watch?v=sn-PiCDvhbM&t=154s
Sub ConvertirTableauEnListe()
    Dim Rng As Range, cellule As Range
    Dim LigneTitre As Integer, ColonneTitre As Integer
    Dim Ligne As Integer, Colonne As Integer

With Sheets("feuil1")
    Set Rng = .Range("B2").CurrentRegion    'on recupere tableau dans variable Rng
    Set cellule = .[J1]
    cellule.CurrentRegion.Clear

    'on recupere n° de ligne titre et n° de colonne titre
    LigneTitre = Rng.Cells(1).Row
    ColonneTitre = Rng.Cells(1).Column

    Dim celluleTableau As Range
    For Each celluleTableau In Rng
                If IsNumeric(celluleTableau) Then
        cellule = Cells(celluleTableau.Row, ColonneTitre)
        cellule.Offset(0, 1) = Cells(LigneTitre, celluleTableau.Column)
        cellule.Offset(0, 2) = celluleTableau
        Set cellule = cellule.Offset(1, 0)
                End If
    Next celluleTableau
End With
End Sub