Sub clear_listes()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
nb = Sheets.Count
For x = 3 To nb
For k = 3 To 7
Sheets(x).Range("B" & k) = ""
Next k
Sheets(x).Range("B11:B30").ClearContents
Sheets(x).Cells(33, 4).ClearContents
Next x
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub