Plantage macro selon ordre d'execution

Bonjour,

Je suis confronté à un problème auquel je ne trouve pas de réponse.

A partir d'une macro "Maj_Planning", je lance 2 autres macros
"ReglValidEnreg" et "DateEchOF3"

Si je les lance dans cet ordre tout se passe bien mais si je lance
"DateEchOF3" avant "ReglValidEnreg" alors j'ai un plantage dans sur ".Add
Type:=......"

Le problème c'est que je voudrais l'inverse (evidement !) mais impossible...
ça plante toujours...

Quelqu'un voit-il lorigine du problème ?

Ci dessous le détail des différente macros.

Merci.

Domi



Sub MAJ_PLANNING()

Application.ScreenUpdating = False

Sheets("PLANNING").Select

ReglValidEnreg

DateEchOF3

End Sub



Sub ReglValidEnreg()

'Ajout Règles de validation dans les plages de saisie

Union(Range("PrevA"), Range("PrevC"), Range("PrevE")).Select

With Selection.Validation

.Delete

.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween,
Formula1:="=and((sum(M13)+sum(N13))<=M$8,Sum($G13:$G13)<=sum($F13:$F13),sum($H13)>0,$A13>=$Q$3)"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = "Saisie non autorisée"

.InputMessage = ""

.ErrorMessage = "Charge du jour ou de la semaine excessive." &
Chr(10) & "Qté saisie excessive pour le type." & Chr(10) & "Date mini
d'enregistrement non respectée."

.ShowInput = True

.ShowError = True

End With

End Sub





Sub DateEchOF3()

'On ajoute 3 jours à la date d'échéance initiale

With Range("IMPEch3")

.FormulaR1C1 = "=SERIE.JOUR.OUVRE(RC[-2],3,joursferies)"

.NumberFormat = "dd/mm/yyyy"

.Value2 = .Value2

End With

End Sub