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