Dim k As Integer
Dim l As Integer
Dim FICHE_ELEVE As Worksheet
Dim Cases As Range
Set FICHE_ELEVE = ThisWorkbook.Worksheets("Fiche élève")
l = FICHE_ELEVE.UsedRange.Rows.Count
For k = 4 To l + 1
[ ... traitement de données ... ]
Set Cases = FICHE_ELEVE.Range(Cells(k, 2), Cells(k, 3))
Cases.Borders(xlDiagonalDown).LineStyle = xlNone
Cases.Borders(xlDiagonalUp).LineStyle = xlNone
With Cases.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cases.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next k
FICHE_ELEVE.Activate