Problème récupération numéro page VBA

Bonjour,

J'aurais besoin de récupérer le numéro de page dans des cellules excel. J'ai trouvé cette programmation :
Function NumeroPage() As Variant
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim Ws As Worksheet
Dim Col As Integer, Ligne As Long

Set Ws = Application.Caller.Worksheet
Ligne = Application.Caller.Row
Col = Application.Caller.Column

If Ws.PageSetup.Order = xlDownThenOver Then
HPC = Ws.HPageBreaks.Count + 1
VPC = 1
Else
VPC = Ws.VPageBreaks.Count + 1
HPC = 1
End If

NumeroPage = 1
For Each VPB In Ws.VPageBreaks
If VPB.Location.Column > Col Then Exit For
NumeroPage = NumeroPage + HPC
Next VPB

For Each HPB In Ws.HPageBreaks
If HPB.Location.Row > Ligne Then Exit For
NumeroPage = NumeroPage + VPC
Next HPB
End Function

J'ai une erreur 424 "Objet Requis". Quelqu'un aurait-il une solution ?

En vous remerciant !!