Re,
Super bravo à toi
Note : si un jour tu essaies de mettre un filtre élaboré ou automatique aux en-têtes des colonnes le code ne servira pas et ne s’exécutera plus un aperçu que j'ai vu sur le net ci-dessous à modifier Cells(1, 1).row par le numezro de ligne, mais là je suis encore novice
'----------merci à JB-------------------------
Dim A As Long
With Range("_FilterDataBase")
A = .Cells(1, 1).Row
On Error Resume Next
With .SpecialCells(xlCellTypeVisible)
For Each r In .Rows
If r.Row <> A Then
r.Cells(1, 1).Select
exit for
End If
Next
End With
End With
crdlt,
André