Private Sub UserForm_Initialize()
Dim intNbPage As Integer
With Me.MultiPage1
For intNbPage = 1 To .Pages.Count
.Pages(intNbPage).Caption = ThisWorkbook.Sheets('NomDelaFeuille').Cells(intNbPage, 1).Value
Next intNbPage
End With
End Sub