bonjour, 

J'aimerais réaliser une macro qui pose des questions aux utilisateurs avec réponse "oui" ou "non" et en fonction des réponses agis plus ou moins de facon differentes. Mais avec le code que j'ai utilisé une fois que le premier messagebox est positif, tout les autres le sont malgré le fait de repondre négativement

Extrait de mon code:

Dim Rep As Integer

Dim PriceD As Integer

Dim EtatV As Integer

Rep = MsgBox("TRANSIT A EFFECTUER?", vbYesNo + vbQuestion, "TRANSIT")

        If Rep = vbYes Then

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "OUI"

            Range("E18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LA VILLE EN TRANSIT", "VILLE TRANSIT")

            Range("I18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE PAYS TRANSIT", "PAYS TRANSIT")

        Else

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "NON"

        End If

PriceD = MsgBox("FRAIS DHL?", vbYesNo + vbQuestion, "DHL")

        If Rep = vbYes Then

                Range("U8").Select

                ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE MONTANT DES FRAIS DHL", "FRAIS DHL")

            Else

                Range("V8").Select

            End If

EtatV = MsgBox("VEHICULE PRET POUR ENLEVEMENT?", vbYesNo + vbQuestion, "ETAT VEHICULE")

            If Rep = vbYes Then

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PRET"

            Else

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PAS PRET"

            End If