Bonsoir Julie1234, le forum
Vois ceci Julie
Option Explicit
Sub test()
Dim a, i As Long, e, pos, dico As Object
Set dico = CreateObject("Scripting.Dictionary")
With Sheets("Exemple")
a = .Range("a5").CurrentRegion.Value
For i = 2 To UBound(a, 1)
If Not dico.exists(MonthName(a(i, 2))) Then
Set dico(MonthName(a(i, 2))) = _
CreateObject("Scripting.Dictionary")
dico(MonthName(a(i, 2))).CompareMode = 1
End If
dico(MonthName(a(i, 2)))(a(i, 1)) = Empty
Next
.Rows(2).ClearContents
For Each e In dico.keys
pos = Application.Match(e, .Rows(1), 0)
If Not IsError(pos) Then
.Cells(2, pos) = dico(e).Count
End If
Next
End With
Set dico = Nothing
End Sub
klin89