Sheets("Garde").Select
On Error Resume Next
' Garde
Range("C5:E250").SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
On Error Resume Next
' Astreinte
Range("H5:J250").SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0