Dans MsgBox : Comment mettre une vbYesNo dans une vbYesNo ?

Bonjour à tous ! Dans le cadre d'une modification que j'aimerai apporter a un de mes fichier excel, pour éviter des modifications enregistrées abusive, je souhaiterai inonder "l'enregistreur" de question vbYesNo avant l'enregistrement pour le dissuader

Or, dès la seconde vbYesNo, découlant de la repYes de la première vbYesNo, le traitement de la réponse vbNo n'est pas celui attendu ( je surligne là ou ça bloque, et l'étape à laquelle ça me renvoi ) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    MsgBox ("Hey la! Pas si vite ..."), 16, "321654987"

Dim Rep As Integer

    Rep = MsgBox("T'es vraiment sur de vouloir modifier mon chef d'oeuvre ?", vbYesNo + vbQuestion, "321654987")
    If Rep = vbNo Then

    MsgBox ("Ouais j'préfére ça mon grand, allez sors de là !"), vbQuestion, "321654987"

    GoTo FIN2

    Else

    MsgBox ("Vraiment... Vraiment ?!"), vbYesNo + vbQuestion, "321654987"

    If Rep = vbYes Then

    GoTo FIN1

    Else

    MsgBox ("Vous savez pas s'que vous voulez ou quoi ?!"), vbQuestion, "321654987"

    GoTo FIN2

    End If
    End If

FIN1:
    MsgBox ("Ok Ok Ok Ok Ok"), vbQuestion, "321654987"
FIN2:

End Sub

Je comprend pas où est l'erreur, en sachant que j'ai essayé d'intervertir :

MsgBox ("Vraiment... Vraiment ?!"), vbYesNo + vbQuestion, "321654987"

    If Rep = vbNo Then

    MsgBox ("Vous savez pas s'que vous voulez ou quoi ?!"), vbQuestion, "321654987"

    GoTo FIN2

    Else

    GoTo FIN1

    End If
    End If

FIN1:
    MsgBox ("Ok Ok Ok Ok Ok"), vbQuestion, "321654987"
FIN2:

End Sub

Merci d'avance pour votre aide

Bonjour

Juste testé dans une procédure autre

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  MsgBox ("Hey la! Pas si vite ..."), 16, "321654987"

  If MsgBox("T'es vraiment sur de vouloir modifier mon chef d'oeuvre ?", vbYesNo + vbQuestion, "321654987") = vbNo Then
    MsgBox ("Ouais j'préfére ça mon grand, allez sors de là !"), vbQuestion, "321654987"
  Else
    If MsgBox("Vraiment... Vraiment ?!", vbYesNo + vbQuestion, "321654987") = vbYes Then
      MsgBox ("Ok Ok Ok Ok Ok"), vbQuestion, "321654987"
    Else
      MsgBox ("Vous savez pas s'que vous voulez ou quoi ?!"), vbQuestion, "321654987"
    End If
  End If

Merci mais en fait si je veut insérer une autre vbYesNo aprés

("T'es vraiment sur de vouloir modifier mon chef d'oeuvre ?", vbYesNo + vbQuestion) = vbNo 

qu'est ce que je dois faire ? ( si je veut que le non et le oui débouche chacune sur une vbYesNo différente )

Bonjour

Cette macro est (en principe) faite suivant la macro que tu as fournie

Alors si tu veux qu'elle soit modifiée fournis la trame exacte