MFC sur epaisseur de bordure selon jour de la semaine

Sub Bordures()
Dim iRow As Long, iCol As Long, shCal As Worksheet

    Set shCal = ThisWorkbook.Sheets("A CALENDRIER REPARTITION DZ")
    
    With shCal
        'boucler sur les lignes 9, 15 et 21
         For iRow = 9 To 21 Step 6
            'boucler de la colonne B à la dernière contenant de l'information
             For iCol = 2 To .Cells(iRow, .Columns.Count).End(xlToLeft).Column
                
                'si le jour est un vendredi
                 If Weekday(.Cells(iRow, iCol), vbMonday) = 5 Then
                    'modifier la bordure (en gras)
                     .Cells(iRow, iCol).Resize(3).Borders(xlEdgeLeft).LineStyle = xlContinuous
                    .Cells(iRow, iCol).Resize(3).Borders(xlEdgeLeft).Weight = xlMedium
                Else
                    'modifier la bordure (en normal)
                     .Cells(iRow, iCol).Resize(3).Borders(xlEdgeLeft).LineStyle = xlContinuous
                    .Cells(iRow, iCol).Resize(3).Borders(xlEdgeLeft).Weight = xlThin
                End If
                
                'si le jour est un 31
                 If Day(.Cells(iRow, iCol)) = 31 Then
                    'modifier la bordure (en gras)
                     .Cells(iRow, iCol).Resize(3).Borders(xlEdgeRight).LineStyle = xlContinuous
                    .Cells(iRow, iCol).Resize(3).Borders(xlEdgeRight).Weight = xlMedium
                Else
                    'modifier la bordure (en normal)
                     .Cells(iRow, iCol).Resize(3).Borders(xlEdgeRight).LineStyle = xlContinuous
                    .Cells(iRow, iCol).Resize(3).Borders(xlEdgeRight).Weight = xlThin
                End If
            Next iCol
        Next iRow
    End With
End Sub