Microsoft 365 Ajouter une colonne

[Juliopapadopulos]

Bonjour à vous,

J'ai un code VBA pour ajouter toutes les feuilles ouvertes dans excel pour les mettre dans une page "Sommaire" mais voila,

J'aimerais qu'a la fin de ma feuille les valeurs qui dépassent sur la feuille suivante se mettent sur la même feuille mais dans une autre colonne..

Un Sommaire quoi...

Pouvez-vous m'aider je débute sur VBA.

Voici le code :

Sub creerSommaire()
'If Worksheets(1).Name = "Sommaire" Then
'Application.DisplayAlerts = False
'End If
[b2] = "Sommaire"
Dim ligne As Integer
ligneV = 4
ligneM = 8
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Sommaire" Then
If sh.Visible Then
ActiveSheet.Hyperlinks.Add anchor:=Cells(ligneV, 2), Address:="", SubAddress:="'" & sh.Name & "'!A1", TextToDisplay:=sh.Name
ligneV = ligneV + 2
End If
End If
Next
End Sub

Pour l'instant ca fonctionne trés bien

Merci à vous !