Affichage page sous condition vba

Bonjour à vous et merci par avance à ceux qui pourront m'aider
voila mon problème, je voudrais faire afficher une page suite à la validation des conditions vba
encore merci à vous


voila ce que j'ai créé :
Private Sub Workbook_Open()
Dim x As Double
Dim y As Double
x = InputBox("Quel type de tarif ?" & Chr(13) & "1 - TARIF NORMAL" & Chr(13) & "2 - TARIF AGENTS" & Chr(13) & "3 - TARIF AVP")
y = InputBox("Quelle qualité ?" & Chr(13) & "1 - PONGE 9 UNI" & Chr(13) & "2 - PONGE 9 UNI FP1" & Chr(13) & "3 - PONGE 9 UNI FV1")

If x = 1 And y = 1 Then
MsgBox "tarif normal Ponge 9 uni "
Que dois-je mettre pour faire afficher la page correspondante?
End If
If x = 2 And y = 1 Then
MsgBox "tarif normal ponge 9 fp1"
End If
If y = 3 Then
MsgBox "tarif normal ponge 9fv1"
If x = 2 And y = 1 Then
End If
MsgBox "tarif agents ponge9 uni"
If x = 2 And y = 2 Then
MsgBox "tarif agents ponge9 fp1"
End If
If x = 2 And y = 3 Then
MsgBox "tarif agents ponge fv1"
End If
If x = 3 And y = 1 Then
MsgBox "tarif avp ponge9 uni"
End If
If x = 3 And y = 2 Then
MsgBox "tarif avp ponge9 fp1"
End If
If x = 3 And y = 3 Then
MsgBox "tarif avp ponge9 fv1"
End If

End Sub