[RESOLU]Commandbutton dynamique

Private Sub UserForm_Initialize()
 Set f = Sheets("BD")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
  If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
  Next i
 ' MsgBox Me.MultiPage1.Pages(2).Caption
  i = 0
  For Each c In mondico.keys
  Me.MultiPage1.Pages(i).Caption = c
  i = i + 1
  Next c
 
 End Sub