Sub Page_Down2_mF()
'
' PageDown Macro
' Vers rubrique suivante
' Touche de raccourci du clavier: Ctrl+Maj+D
'
nlig = ActiveCell.Row
derl = Cells(nlig, 7).End(xlDown).Row
While Cells(derl, 7).Value = ""
If derl = Rows.Count Then Exit Sub
derl = Cells(derl, 7).Offset(1, 0).End(xlDown).Row
Wend
Application.Goto Reference:="R" & derl & "C1"
End Sub
Sub Page_Précédante2_mO()
'
' Page_Précédante Macro
' Vers rubrique précédante
' Touche de raccourci du clavier: Ctrl+Maj+P
'
nlig = ActiveCell.Row
derl = Cells(nlig, 7).End(xlUp).Row
While Cells(derl, 7).Value = ""
derl = Cells(derl, 7).Offset(-1, 0).End(xlUp).Row
Wend
Application.Goto Reference:="R" & derl & "C1"
End Sub