Erreur 400 - AIDE

Bonjour, j'ai un soucis sur mes macros qui ont un erreur 400 depuis que j'ai mis le Excel.Run.

Avant il y avait un Call "Nom de la Macro" qui marchait pour la macro Modification_OUI mais pas pour la macro Modification_NON

Une aide ? Un conseil ?

Sub Modification1()

If MsgBox("Le projet rencontre des contraintes de colisages ? ", vbYesNo) <> vbNo Then
Excel.Run ("Modification_OUI")
Else
Excel.Run ("Modification_NON")
End If
End Sub

Sub Modification_OUI()
MsgBox " Tu as dis OUI"

End Sub

Sub Modification_NON()

Dim x As Integer

Do Until Sheets("Données_d'entrée").Cells(8, 11).Value * x > Sheets("Données_d'entrée").Cells(8, 3).Value
x = x + 1
Loop
x = x - 1

For a = 6 To x
Cells(a, 2).Value = a - 5
Next a

End Sub

Bonjour,

De mon côté" j'aurais codé comme ceci

Sub Modification1()
  If MsgBox("Le projet rencontre des contraintes de colisages ? ", vbYesNo) = vbYes Then
    Modification_OUI
  Else
    Modification_NON
  End If
End Sub

Sub Modification_OUI()
  MsgBox " Tu as dis OUI"
End Sub

Sub Modification_NON()
  Dim x As Integer
  Do Until Sheets("Données_d'entrée").Cells(8, 11).Value * x > Sheets("Données_d'entrée").Cells(8, 3).Value
    x = x + 1
  Loop
    x = x - 1
  For a = 6 To x
    Cells(a, 2).Value = a - 5
  Next a
End Sub

Donc tu ne mets pas le Call ?

C'est la seule chose que tu as changé ou autre chose ?

Re,

Teste et regarde le code