Bonjour Philippe V, BrunoM45 , le forum,
Pour n'afficher que les lignes qui contiennent du texte, essaies :
Criteria1:="><"
Sinon, il est possible de masquer les lignes contenant une date ....
Sub RAPPORTS()
Dim O As Worksheet, dl%, i%
Set O = Worksheets("BASE")
Application.ScreenUpdating = False
With O
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dl
If IsDate(.Range("B" & i)) Then .Rows(i).Hidden = True
Next i
End With
End Sub
Cordialement,