Macro saut page après avoir trouvé caractère

Sub test()
Dim cel As Range 'déclare la variable cel
 
ActiveSheet.ResetAllPageBreaks 'rétablit tous les sauts de page
'boucle sur toutes les cellules éditées de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
'si les quatres premières lettres de la cellule sont "Page",
'place un saut de page dans la cellule en dessous
If Left(cel.Value, 4) = "Page" Then ActiveSheet.HPageBreaks.Add Before:=cel.Offset(1, 0)
Next cel 'prochaine cellule de la oucle
End Sub

Set c = ActiveSheet.Columns(1).Find("Page N°", LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
  firstAddress = c.Address
   Do
     ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(1, 0)
     Set c = ActiveSheet.Columns(1).FindNext(c)
   Loop While Not c Is Nothing And c.Address <> firstAddress
End If