Bonjour à tous

Je suis novice dans la programmation et notamment avec vba
J'ai un problème que je ne parviens pas à résoudre, j'ai bien cherché mais je ne trouve pas de réponses. C'est pourquoi je vous sollicite

Après lancement de la macro excel me renvoit l'erreur"Set Target must be a single cell on the active sheet"
la macro se termine mais tout n'est pas effectué, je m'explique:

selon une feuille de saisie remplie par un utilisateur la macro sélectionne les macro 1... 11 qui font chacune référence à une feuille de calcul différente dans laquelle un ou plusieurs solver est lancé
voici le code de la macro principale:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Private Sub CALCUL_Click()
 
'on rend invisible les feuilles pas utile
For i = 4 To Worksheets.Count
Worksheets(i).Visible = False
Next i
Application.ScreenUpdating = False
 
'cas1
Select Case Range("toto").Text
        Case Range("C83").Text
 
        Select Case (Range(titi").Text)
                        Case Range("B93").Text, Range("B88").Text, Range("B103").Text, Range("B108").Text
            Call Feuil22.macro1
            Worksheets("feuille1").Visible = True
             Case Range("B98").Text, Range("B113").Text
             Call Feuil25.macro2
             Worksheets("Feuille2").Visible = True
             Case Range("B118").Text
            Call Feuil28.macro3
            Worksheets("Feuille3").Visible = True
        End Select
 
        Case Range("C84").Text, Range("C85").Text, Range("C86").Text
 
        Select Case (Range("tata").Text)
         Case Range("B93").Text, Range("B88").Text, Range("B103").Text, Range("B108").Text
            Call Feuil23.macro4
            Worksheets("feuille4").Visible = True
             Case Range("B98").Text, Range("B113").Text
             Call Feuil26.flash_recylce_dreches_solid
             Worksheets("Flash recycle Dreches solid").Visible = True
             'chauffage avec échangeur
             Case Range("B118").Text
             Call Feuil29.flash_dreches_exchanger_solid
             Worksheets("Flash Dreches echangeur solid").Visible = True
        End Select
 
End Select
 
'cas2
Select Case Range("jeje").Text
   Case Range("B125").Text, Range("B126").Text, Range("B127").Text, Range("B128").Text
        Worksheets("feuille6").Visible = True
 
        Case Range("B129").Text
            'gaz
            If Range("pp").Text = Range("C130").Text Then
                Call Feuil20.macro7
                Worksheets("feuille7").Visible = True
            End If
            'vapeur
            End Select
 
Select Case (Range("mm").Text)
    'gaz
    Case Range("C136").Text
 
        Select Case (Range("choix").Text)
            Case Range("B136").Text
            Call Feuil10.macro8
            Worksheets("feuille8").Visible = True
             Case Range("B141").Text
             Call Feuil13.macro9
             Worksheets("feuille9").Visible = True
                     End Select
 
    Case Range("C137").Text, Range("C138").Text, Range("C139").Text
 
        Select Case (Range("choix3").Text)
            Case Range("B136").Text
            Call Feuil11.macro10
            Worksheets("feuille10").Visible = True
             Case Range("B141").Text
             Call Feuil14.macro11
             Worksheets("feuille11").Visible = True
                     End Select
End Select
 
Application.ScreenUpdating = True
 
Worksheets("synoptique bilan ").Visible = True
Sheets("synoptique bilan matière").Select
End Sub
en regardant les résultats:
la première sous macro concernant le "cas1" tourne entièrement (le solver s'effectue bien)

par contre pour le cas 2 les solvers ne sont pas lancés

j'espère que ces explications sont assez claires, (jai volontairement changé les noms des feuilles et macro par obligation)

merci d'avance pour votre aide

Pierre

ps: j'ai remis le sujet dans la bonne rubrique (vba excel) désolé pour l'erreur