Appeler un module dans une macro

Bonjour

Je voudrai appeler un module dans une macro et je voudrai savoir si c'est possible.

En effet j'ai plusieurs macros dans un module et j'ai besoin d'une macro qui puissent appeler toutes les autres macros sauf qu'écrire ça c'est lourd et long :

Sub macro1

Call macro2
call macro3
...
Call macro100

End sub

Auriez-vous une autre solution pour faire plus rapide ?

Merci.

Bonjour,

Un essai ...

Sub macro1()
Dim X As Byte

For X = 2 To 100
    Application.Run "macro" & X
Next X
End Sub

ric

Bonjour tout d'abord merci pour ta réponse. Mais dans ce cas ça ne march epas parce que mes macros n'ont pas le même nom ce n'est pas réellement macro1 et macro2 c'est plutôt des macros qui s'appellent Information, réponse, test....

Bonjour,

Avec des noms hétéroclites > elles seront exécutées dans l'ordre d'ajout dans le arraylist ...

Sub ExecuterALaSuite()
Dim MyList As Object
Dim i As Byte

    Set MyList = CreateObject("System.Collections.ArrayList")

    ' Add items
    MyList.Add "Information"
    MyList.Add "Réponse"
    MyList.Add "Test"
    MyList.Add "Yas13579"

    For i = 0 To MyList.Count - 1
        Application.Run MyList.item(i)
    Next i
End Sub

ric

Hello Ric,

Merci pour ta réponse mais ça revient un peu à utiliser la fonction call à chaque fois. Et puisque j'ai 40 macros ceci risque d'être long et lourd. Je cherchais donc une méthode qui permet d'appeler le module contenant toutes les macros sans avoir à les citer une par une.