Djamel

Salut,

Voila je voudrais que lorsque il un dimanche sur la ligne 6
que ca me fasse une bordure a droite sur la linge 9


quand je met ce code "madate.Borders(xlEdgeRight).Weight = xlThick"
il me met une bordure mai juste sur la ligne 6 alors que je la voudrais sur la ligne 9.


Merci d'avance a tous


Sub SamDimanche()
Set plagederecherche = Range("B6:AF6")
For Each madate In plagederecherche
If Weekday(madate) = 8 Or Weekday(madate) = 1 Then
madate.Font.ColorIndex = 3
' madate.Borders(xlEdgeRight).Weight = xlThick

End If
Next madate
End Sub