XL 2010 compter masculin feminin

Sub TEST()

Set mondico = CreateObject("Scripting.Dictionary")
tb1 = Sheets("Feuil1").Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row)
tb2 = Sheets("Feuil2").Range("A2:C" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tb1, 1) To UBound(tb1, 1)
If tb1(n, 1) And tb1(n, 3) = tb2(n, 1) And tb2(n, 5) Then
mondico = mondico
End If
Next
b = mondico.items
Sheets("Feuil2").Range("L1").Resize(UBound(b) + 1) = Application.Transpose(b)

End Sub

Sub report()

tablo = Sheets("Feuil1").Range("A2:E" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
  x = CDbl(CDate(tablo(n, 1)))
  If tablo(n, 4) = "A" Then
     dico(x) = dico(x) + tablo(n, 5)
  Else
     dico(x) = dico(x)
  End If
Next
a = dico.keys
b = dico.items
Range("I2").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("J2").Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub

Sub report2()

tablo = Sheets("Feuil1").Range("A2:E" & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
  x = CDbl(CDate(tablo(n, 1)))
  If tablo(n, 4) = "B" Then
     dico(x) = dico(x) + tablo(n, 5)
  Else
     dico(x) = dico(x)
  End If
Next
a = dico.keys
b = dico.items
Range("I2").Resize(UBound(a) + 1) = Application.Transpose(a)
Range("K2").Resize(UBound(b) + 1) = Application.Transpose(b)
End Sub