Sub Macro2()
Sheets("Feuil1").Activate
Dim cpt As Long, i As Integer
For i = 2 To Range("A65536").End(xlUp).Row
't[COLOR="DarkGreen"]ester simplement si le critere est Titi et si la ligne n'est pas cachee[/COLOR]
If Cells(i, 2).Value = "titi" And Rows(i).Hidden = False Then
cpt = cpt + 1
End If
Next
Sheets("Feuil2").Range("B9").Value = cpt
Sheets("Feuil2").Activate
MsgBox "Somme : " & cpt
End Sub