Robert

Salut EricS, salut le forum,

Cette macro devrait te permettre de faire ce que tu demandes :

Sub test()
Dim cel As Range
For Each cel In Range(ActiveCell.Offset(1, 0), Cells(65536, ActiveCell.Column))
If cel.EntireRow.Hidden = False Then
cel.Select
Exit Sub
End If
Next cel
End Sub

À plus,

Robert