Exécuter une macro dont le nom est dans une cellule Excel

Bonjour Michel,

Merci pour votre réponse. Hélas, j'ai un message d'erreur me disant que la macro recherchée n'est pas disponible.
Mon fichier est lourd, prenant des infos dans d'autre. Il m'est donc pas possible de vous donner une copie.
Mais par contre, je vous met ci-dessous la partie de la macro avec votre solution.

Dim CASU As Date, CSU As Date, DEPART As Date, HSITE As Date, DEPSITE As Date, HDEST As Date, HOPER As Date
Dim CASUCSU As Date, CSUDEP As Date, DEPARTSITE As Date, SURPLACE As Date, CSUSITE As Date, TEMINTER As Date
Dim DATIN As Date, NFIP As Long, NACA As Byte, MEDIC As String, PROTO As String, SECUTEL As String, FB As String, PARTENAIRE As String, LOC As String
Dim SMUR As String, NMSMU1 As String, NMSMU2 As String, HELIC As String, NMHELIC As String
Dim SEXE As String, TYPLIEUPRISCHARGE As String, MOTIFINT As String, CATDEST As String, HOPDEST As String, TROM As String, KM As Long, NMPROTO As String, PROTOPAR As String
Dim X As Long, MEDI As String
Option Explicit
Sub Attentes()
CEF = Sheets("ArPr").Range("D2").Value
'Prise des variables fixes
With Worksheets("Données2")
.Activate
STAT1 = .Range("O2").Value 'A faire
STAT2 = .Range("O4").Value 'En Attente
End With
'Colllecter les données pour les répartir
CollectdonnéesFIP
'Chronologie des reports des données collectées
With Worksheets("Checklist")
.Activate
'Boucle pour faire toute les tâches
X = 2
While .Range("A" & X) <> ""
NAr = .Range("A" & X).Value
STAT = .Range("D" & X).Value
If STAT = STAT1 Or STAT = STAT2 Then
'Doit être fait
NF = .Range("C" & X).Value ' Chemin complet
CHE = .Range("F" & X).Value ' Chemin complet
Ongl = .Range("G" & X).Value ' Chemin complet
NMAC = .Range("H" & X).Value 'Nom de la macro
Application.Run NMAC
ControlesifichieOuvert
End If
X = X + 1
Wend
End With
End Sub
Sub CollectdonnéesFIP()
.....

PS : Je ne suis pas un pro. Je bricole et je pense que celà se voit. Donc j'espère que mon mic-mac vous sera tout de même compréhensible.

Merci à vous