Sub Choix()
Selectionner MsgBox("""Oui"" pour sélectionner vers le bas, ""Non"" pour sélectionner vers le haut", 4, "En feuille A") = 6
End Sub
Sub Selectionner(down As Boolean)
Dim i&, flag As Boolean
Application.ScreenUpdating = False
Sheets("A").Activate
For i = ActiveCell.Row + IIf(down, 1, -1) To IIf(down, Rows.Count, 1) Step IIf(down, 1, -1)
If Not Rows(i).Hidden Then ActiveCell(1 + i - ActiveCell.Row).Select: flag = True: Exit For
Next
Sheets("B").Activate
Application.ScreenUpdating = True
If Not flag Then MsgBox "Sélection impossible en feuille A..."
End Sub