Problème copie valeurs changeantes

Bonjour,

J'ai un probleme, en effet, j'ai plusieurs scenarios "Finance" ou "Sales", D3 : "yes" ou "no", D4 "yes" ou "no", puis 4 scenarios, ce sont 4 cellules de la feuille "Model" qui quand elles changent font varier d'autres valeurs stockées dans d'autres colonnes de la feuille de calcul. Je souhaiterais donc essayer tous les scenarios et les copier dans une autre feuille de calcul "Synthesis". J'arrive bien à le copier, rien ne bug, cependant cela ne recopie pas les bonnes valeurs, comme si le code vba allait plus vite que les changements excel. J'ai donc essayé d'insérer des pauses pour que les changements aient le temps d'être pris en compte, mais sans success.

Auriez vous une idée du soucis?

Je vous joins mon code:

Sub CopieColonne(Scenario As Integer)

NbMin = 4 * Scenario - 3

Sheets("Model").Select
Range("EZ6:EZ110").Select
Selection.Copy
Sheets("Synthesis").Select
Columns(NbMin).Select
ActiveSheet.Paste

Sheets("Model").Select
Range("FA6:FA110").Select
Selection.Copy
Sheets("Synthesis").Select
Dim Nb1 As Integer
Nb1 = NbMin + 1
Columns(Nb1).Select
ActiveSheet.Paste

Sheets("Model").Select
Range("AN6:AN110").Select
Selection.Copy
Sheets("Synthesis").Select
Dim Nb2 As Integer
Nb2 = NbMin + 2
Columns(Nb2).Select
ActiveSheet.Paste

Sheets("Model").Select
Range("AO6:AO110").Select
Selection.Copy
Sheets("Synthesis").Select
Dim Nb3 As Integer
Nb3 = NbMin + 3
Columns(Nb3).Select
ActiveSheet.Paste

End Sub

Sub CopieDonnesSynthese()

Sheets("Model").Activate

Dim Scenario As Integer
Scenario = 0

Range("D1") = "Finance"

    Range("D3") = "yes"

        Range("D4") = "yes"

            For x = 1 To 4
                Cells(5, 4).Value = x
                Scenario = Scenario + 1
                Call CopieColonne(Scenario)
            Next x

        Range("D4") = "no"

            For x = 1 To 4
                Cells(5, 4).Value = x
                Scenario = Scenario + 1
                Call CopieColonne(Scenario)
            Next x

    Range("D3") = "no"

        Range("D4") = "yes"
            Scenario = Scenario + 1
            Call CopieColonne(Scenario)

        Range("D4") = "no"
            Scenario = Scenario + 1
            Call CopieColonne(Scenario)

Range("D1") = "Sales"

    Range("D3") = "yes"

        Range("D4") = "yes"

            For x = 1 To 4
                Cells(5, 4).Value = x
                Scenario = Scenario + 1
                Call CopieColonne(Scenario)
            Next x

        Range("D4") = "no"
            For x = 1 To 4
                Cells(5, 4).Value = x
                Scenario = Scenario + 1
                Call CopieColonne(Scenario)
            Next x

    Range("D3") = "no"
        Range("D4") = "yes"
            Scenario = Scenario + 1
                Call CopieColonne(Scenario)

        Range("D4") = "no"
                Scenario = Scenario + 1
                Call CopieColonne(Scenario)

End Sub

Merci d'avance de votre aide!

bonjour,

probablement que les cellules que tu copies contiennent des formules. tes instructions recopient les formules pas le résultat de la formule.

ActiveSheet.pastespecial xlpastevalues

sinon mets-nous ton fichier