Private Sub CommandButton1_Click()
'adapter éventuellement les cellules A2 et H3
With [A2].CurrentRegion
.Name = "T" 'nomme le tableau
With [H3].Resize((.Rows.Count - 1) * .Columns.Count, 2)
.Columns(1) = "=INDEX(T,2+INT((ROWS(H$3:H3)-1)/COLUMNS(T)),1+MOD(ROWS(H$3:H3)-1,COLUMNS(T)))"
.Columns(2) = "=INDEX(T,1,1+MOD(ROWS(H$3:H3)-1,COLUMNS(T)))"
.Value = .Value 'supprime les formules
.Resize(Rows.Count - .Rows.Count - .Row + 1).Offset(.Rows.Count).ClearContents
End With
End With
End Sub