Re,
Un fichier c'est bien mais un fichier qui correspond à ta requête c'est mieux !... La colonne D est Vide, aucun "T" dans la colonne A.
C'est du foutage de gueule ?
J'ai par habitude de commenter mes codes pour permettre de les modifier mais dans ce cas je fais comme toi, à l'arrache...
Sub Macro1()
Dim O As Worksheet
Dim TV As Variant
Dim TM(1 To 12)
Dim I As Integer
Dim M As Byte
Set O = Worksheets("Feuil1")
TV = O.Range("A1").CurrentRegion
For I = 2 To UBound(TV, 1)
M = Month(TV(I, 2))
If TV(I, 1) = "T" Then TM(M) = TM(M) + 1
Next I
O.Range("E9").Resize(12, 1).Value = Application.Transpose(TM)
End Sub