Set Multi = UserForm1.Controls.Add("Forms.MultiPage.1")
'pointer est declaré en integer
With Multi
.Name = "Mutli"
.Left = 0
.Top = 5
.Width = 350
.Height = 450
End With
pointer = 1
For i = 0 To (Cells(2, pointer).Offset(0, 1).Column.Value <> Null)
Multi.Pages.Add
Multi.Pages(i).Caption = Cells(2, pointer)
pointer = Cells(2, (Cells(2, pointer).Offset(0, 1).Column))
Next i