Application direct de formule crée avec VBA - Bug 438

Bonjour,

Après maintes recherches, je ne trouve pas le problème de ce code VBA :

Private Sub CommandButton1_Click()

'Renommer le 1er bouton
CommandButton1.Caption = "Calcul du budget"
Dim LigBudget As Integer, DerLig As Integer, SerLig As Integer, Col As Integer, NomCol As String, MaPlage As Range 'Déclaration des variables

Application.ScreenUpdating = False 'Désactive l'affichage le temps de l’exécution (rapidité +)
Application.Calculation = xlCalculationManual 'Désactive le recalcule auto des formules Excel à chaque modification (rapidité +)

LigBudget = Range("B1").Value
DerLig = LigBudget - 3
SerLig = LigBudget + 2

'Calcul budget heures théoriques
With Worksheets("PLANNINH HxJ")
For Col = 16 To 702
Set MaPlage = .Range(.Cells(6, Col), .Cells(DerLig, Col))
.Cells(LigBudget, Col) = Application.cumul_couleur(MaPlage, .Range("N6"))
Next Col
End With
Application.Calculation = xlCalculationAutomatic


End Sub

Erreur d'exécution 438, donc il y a un problème d'écriture mais je ne sais vraiment pas quoi !

Merci de votre aide