Dim DerColonne As Long
DerColonne = Rows(12).Find("*", , , , xlByColumns, xlPrevious).Column
I = 2
For I = 2 To 13
For M = (DerColonne - 2) To 6 Step -5
Sheets(I).Range(M & "12:" & M & "18").ClearContents
Sheets(I).Range(M & "20:" & M & "26").ClearContents
Sheets(I).Range(M & "28:" & M & "34").ClearContents
Sheets(I).Range(M & "36:" & M & "42").ClearContents
Sheets(I).Range(M & "44:" & M & "50").ClearContents
Sheets(I).Range(M & "52:" & M & "58").ClearContents
Next
Next