macro compter occurrence par mois

Bonsoir à tous,

je sèche sur un programme. je veux compter le nombre d'occurrences différents par mois dans un tableau excel.

mon tableau est composé d'une colonne date et d'une colonne avec les différents occurences (pomme, banane, peche, melon, ..).

je cherche à comptabiliser dans une feuille excel dans un autre onglet que mon tableau, le nombre de banane, le nombre de pommme,.. et ceci par mois.

est ce qu'il y a quelqu'un qui pourrait me guider dans la rédaction de ce programme? merci d'avance


voici ci dessous le code j'ai commencé à rédigé mais je n'arrive pas à intégrer le tri par mois, ça ne marche pas, si quelqu'un à une idée?? jsuis preneur..

Sub Compteur_DR()
k = 13
z = 7
Dim A, B, C, D, E, F As Integer

For I = 1 To 12
A = B = C = D = E = G = 0

Sheets("Base").Select
Range("A7").Select

Do While Not (IsEmpty(ActiveCell))

If Month("A" & z) = I
If Range("F" & z).Value = "Pomme" Then
A = A + 1
ElseIf Range("F" & z).Value = "Banane" Then
B = B + 1
ElseIf Range("F" & z).Value = "Orange" Then
C = C + 1
ElseIf Range("F" & z).Value = "Kiwi" Then
D = D + 1
ElseIf Range("F" & z).Value = "Citron" Then
E = E + 1
ElseIf Range("F" & z).Value = "Fraise" Then
G = G + 1
End If
ActiveCell.Offset(1, 0).Select
z = z + 1
End If
Loop
Sheets("repartition_dr").Select
Cells(k, 3).Value = A
Cells(k, 4).Value = B
Cells(k, 5).Value = C
Cells(k, 6).Value = D
Cells(k, 7).Value = E
Cells(k, 8).Value = G
k = k + 1
' ActiveCell.Offset(1, 0).Select

Next
End Sub