XL 2016 Découpage de colonne avec VBA

[Ghninou]

Bonjour, je suis débutant en VBA. J'ai une colonne de 40000 cellules et j’aimerais la découper en 200 autres colonnes, de façon à avoir un tableau 200x200.
PS: Je vous ai joint mon fichier excel.

Merci d'avance pour votre aide.

 

[Dranreb]

Bonsoir.

Option Explicit
Sub Tableau200200()
   With Feuil1.[C1].Resize(200, 200)
      .FormulaR1C1 = "=OFFSET(R1C1,(COLUMN()-3)*200+ROW()-1,0)"
      .Value = .Value: End With
   End Sub

 

[Ghninou]

Bonsoir.

Option Explicit
Sub Tableau200200()
   With Feuil1.[C1].Resize(200, 200)
      .FormulaR1C1 = "=OFFSET(R1C1,(COLUMN()-3)*200+ROW()-1,0)"
      .Value = .Value: End With
   End Sub

Merci beaucoup