Séparation des dates par mois

Bonjour,
j'ai un tableau classique A3:G450
en A les dates, en B des numéros, etc.
un enregistrement va de A à G
Je désire créer une proc qui lorsque je quitte mon tableau, me tire un trait
afin de séparer les dates par mois, j'ai la proc qui tire le trait, mais je
n'arrive pas à faire la séparation entre les dates.
Merci beaucoup
Alpha

bonjour Alpha,

voici un exemple :

Sub MarquerLesMois()
For Each c In Range("A1:A10")
p = Month(c)
s = Month(c.Offset(1, 0))
If p <> s Then
With Range("A" & c.Row & ":G" & c.Row).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 3
End With
End If
Next
End Sub

isabelle

Bonjour,
j'ai un tableau classique A3:G450
en A les dates, en B des numéros, etc.
un enregistrement va de A à G
Je désire créer une proc qui lorsque je quitte mon tableau, me tire un
trait

afin de séparer les dates par mois, j'ai la proc qui tire le trait, mais
je

n'arrive pas à faire la séparation entre les dates.
Merci beaucoup
Alpha