Public Const MA_FEUILLE As String = "Feuil1" 'constante à adapter
Sub dfil()
Const PAS As Long = 5 'constante à adpter
Dim R As Range
Dim cpt&
'---
Set R = ActiveCell
If R.Row = 1 Then cpt& = 1 'pour omettre la 1ére ligne et aller de 5 en 5 (1,5,10,15, etc)
Do
Set R = R.Offset(1, 0)
If R.EntireRow.Hidden = False Then
cpt& = cpt& + 1
End If
Loop Until cpt& = PAS
'---
R.Select
End Sub
Sub ActiveOnKeyCtrlD(Optional dummy As Byte)
Application.OnKey "^d", "dfil"
End Sub
Sub DesactiveOnKeyCtrlD(Optional dummy As Byte)
Application.OnKey "^d", ""
End Sub