Bonsoir,
Cela fonctionne :
Sub compte()
Dim plage_mois, valeur As Range
Dim mois, annee, mois_en_cours, annee_en_cours As Integer
Dim date_valeur As Date
Application.ScreenUpdating = False
With Sheets("feuil1")
ligne = .Cells(65536, 13).End(xlUp).Row
.Range("m4:q" & ligne).Select
Selection.Interior.ColorIndex = xlNone
.Range("m4").Select
Set plage_mois = .Range("m5:m" & ligne)
mois_en_cours = Month(Date)
annee_en_cours = Year(Date)
For Each valeur In plage_mois
date_valeur = valeur.Value
mois = Month(date_valeur)
annee = Year(date_valeur)
If mois = mois_en_cours And annee = annee_en_cours Then
ligne = valeur.Row
.Range("m" & ligne & ":q" & ligne).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
.Range("m4").Select
Exit For
End If
Next
End With
Application.ScreenUpdating = True
End Sub
@+
Ronan