[bhbh]

Bonjour, essaie ce code :

Sub trouve_prem_cel()
Dim c As Range
For Each c In Range("_filterdatabase").Offset(1, 0).Resize(, 1)
If c.EntireRow.Hidden = False Then
c.Select
Exit Sub 'ou ton code si tu veux parcourir toute la base filtrée
End If
Next c
End Sub