Sub Bordures()
Sheets("ce0").Unprotect
x = Sheets("ce0").Cells(18, 60).End(xlDown).Row - 17
y = Sheets("ce0").Cells(18, 60).End(xlToRight).Column - 59
Sheets("ce0").Select
For J = 1 To y
If J <= 5 Then
For I = 1 To x
If I <= 15 Then
Debug.Print Cells(17 + I, 59 + J).Address(0, 0)...