qui peux me corriger (prb de somme dans cellule)

Sub test2()
Dim dp As Range, fin As Range, total, formule

With Feuil3
Set dp = .Range("c3")
Set fin = .Range("d3")
.Range("f3").FormulaLocal = "=SOMME(dp:fin)"

total = .Range("f3")
formule = .Range("f3").FormulaLocal
MsgBox "            " & total & vbLf & vbLf & formule
End With
End Sub

Sub test3()
Dim PTDepart As Range, PTFin As Range, total, formule

With Feuil3
.Range("AH11").Name = "PTDepart"
.Range("AH12320").Name = "PTFin"

Set PTDepart = .Range("AH11")
Set PTFin = .Range("AH12320")

.Range("BN3").FormulaLocal = "=SOMME(PTDepart:PTFin)"    
' .Range("BN3")  = ActiveCell.offset(3, 33)

total = .Range("BN3")
formule = .Range("BN3").FormulaLocal
MsgBox "            " & total & vbLf & vbLf & formule
.Range("BN3").ClearContents
End With
End Sub

Sub test4()
Dim PTDepart As String, PTFin As String

With Feuil3
.Range("b3").Name = "PTDepart"
.Range("b4").Name = "PTFin"

PTDepart = .Range("b3")
PTFin = .Range("b4")

With .Range("d6")
.FormulaLocal = "=SOMME(PTDepart:PTFin)"
.NumberFormatLocal = "@"
.Value = Range("d6").FormulaLocal
.Font.Color = vbRed
End With
End With
End Sub