merci pour vos reponse mais finalement j'ai listé
les feuilles dans unbarre d'outil avec boutons
maintenant j'ai le choix entre les deux solution
peut lancer usf par bouton
Sub Créerbouton()
Dim x
Dim Y
Dim CHW
Dim CHs
Dim I
Sheets("test").Cells(5, 5) = Worksheets.Count
With ThisWorkbook
For I = 5 To .Sheets.Count
Sheets("test").Cells(14 + I - 4, 1).Value = .Sheets(I).Name
Next I
End With
x = Sheets("test1").Cells(1, 26)
'Application.CommandBars(1).Controls(x).Delete
For Each CB In Application.CommandBars
If CB.Name = x Then
CB.Position = msoBarFloating
CB.Protection = msoBarNoCustomize
CB.Visible = True
Exit Sub
End If
Next CB
Application.CommandBars.Add(Name:=x).Visible = True
Application.CommandBars(x).Position = msoBarFloating
With Application.CommandBars(x).Controls
.Add Type:=msoControlPopup
.Add Type:=msoControlPopup
'<<<<<<<<<<<< "Données">>>>>>>>>>>>>>>
With Application.CommandBars(x).Controls(1)
.Caption = "Données"
'lister parcelle
.Controls.Add Type:=msoControlPopup
With .Controls(1)
.Caption = "Liste des feuilles"
z = Sheets("test").Cells(14, 1)
For Y = 1 To z
.Controls.Add Type:=msoControlButton
CHW = Sheets("test").Cells(Y + 14, 1)
CHs = Sheets("test").Cells(Y + 14, 2)
With .Controls(Y)
.FaceID = 0
.Caption = CHW
.OnAction = CHs
End With
Next Y