J'explique:

avant j'avais comme code dans mon fichier conso:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Application.Run (MyNom & "!MixCroiseeStart")
Ce code marché tres bien.

MixCroiseeStart etant une procedure du fichier MyNom

Ensuite apres quelque modification j'ai creer deux autres procedure qui remplace MixCroiseeStart donc:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
If Left(MySheet, 12) = "Z_BS_M14_10_" Then
    Application.Run (MyNom & "!format_cr_fonc_gene")
    Else
    Application.Run (MyNom & "!format_cr_fonc")
    End If
La j'ai un message d'erreur
Argument non facultatif avec feuille Z_BS_M14_10_01_111111
Je ne vois pas ce qui peut produire ce message