Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 2) 'boule sur toutes les colonnes I du tableau des valeurs TV
Sheets.Add after:=Sheets(Sheets.Count) 'ajoute un onglet a la fin
ActiveSheet.Name = "Colonne " & I 'renomme l'onglet
'renvoie dans la cellule A1 de l'onglet la colonne correspondante du tableau des valeurs TV
ActiveSheet.Range("A1").Resize(UBound(TV, 2), 1).Value = Application.Transpose(Application.Index(TV, , I))
Next I 'prochaine colonne de la boucle
End Sub