Sub efface()
Dim Derlg As Long, Sh As Variant
For Each Sh In Array("CLTS DEPARTS", "onglet2", "onglet3") '*** ici le nom des onglets à traiter
With Sheets(Sh)
On Error Resume Next
Derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
If Derlg > 1 Then Union(.Range("A2:L" & Derlg), .Range("T2:V" & Derlg)).ClearContents
On Error GoTo 0
End With
Next
End Sub