Sub Page() 'recherche du titre sur toute la feuille
Dim derlig As Range, tablo() As Long, i As Integer, cel As Range, cible As Range
Application.ScreenUpdating = False
[COLOR="Red"]ActiveSheet.PageSetup.PrintArea = "" 'annule la zone d'impression[/COLOR]
Set derlig = Cells.Find("*", LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).EntireRow
[COLOR="red"]Application.Goto derlig, True 'positionnement en haut de l'écran[/COLOR]
ReDim tablo(ActiveSheet.HPageBreaks.Count)
For i = 1 To UBound(tablo) 'liste des lignes des sauts de pages
tablo(i) = ActiveSheet.HPageBreaks(i).Location.Row
Next
For Each cel In Range("A1", Range("A1").End(xlDown)) 'liste jointive
Set cible = Range(cel.Offset(1), derlig).Find(cel)
If cible Is Nothing Then
cel.Offset(, 1) = ""
Else
cel.Offset(, 1) = "Page " & Application.Match(cible.Row, tablo)
End If
Next
[COLOR="red"]Application.Goto Range("A1"), True[/COLOR]
End Sub