Selection d'1 cellule après filtre

Sub Macro1()
Dim Cel As Range 'déclare la variable Cel

'boucle sur toutes les cellules éditées Cel de la colonne A en partant de A2
For Each Cel In Range('A2:A' & Range('A65536').End(xlUp).Row)
'condition : si la ligne de la cellule n'est pas masquée
If Cel.EntireRow.Hidden = False Then
Cel.Select 'sélectionne la cellule
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne A
End Sub

Cliquez pour agrandir...