Private Sub OptionButton1_Change()
Dim pge As Page
For Each pge In MultiPage1.Pages
'Si le nom de la page est dans la chaine de caractère
If InStr(1, "Geographic,Product,Order,Shipping,Invoicing,Wholesaler,Other", pge.[SIZE=3][COLOR=red]Name[/COLOR][/SIZE]) > 0 Then
pge.Enabled = OptionButton1.Value
Else
pge.Enabled = Not OptionButton1.Value
End If
Next
End Sub