Private Sub CommandButton2_Click()
Dim reponse%
Set monrange = Worksheets("Feuil1").Range("H2:H14").SpecialCells(xlCellTypeVisible)
For i = 1 To monrange.Areas.Count
reponse = reponse + Application.CountIf(monrange.Areas(i), "toto")
Next
MsgBox reponse
End Sub