Somme selon cellules visibles après un filtre

=SOUS.TOTAL(9;F$2:F$27)

Cliquez pour agrandir...

Sub sommemoyenne()

Dim somme As Double
Dim plage As Range
Dim Cel As Range
somme = 0
With Worksheets(1)
.[$A$1:$BE$65000].AutoFilter Field:=2, Criteria1:="Saint Jean*"
Set MaPlage = .Range("F2:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
End With
For Each Cel In MaPlage
If Worksheets(1).Cells(Cel.Row, 3).Value Like "*08/02/2012" Then
somme = somme + 1
End If
Next
Worksheets(1).Cells(29, 7).Value = somme
End Sub

Cliquez pour agrandir...