Option Explicit
Private Sub Job(sh$, plg$)
Worksheets(sh).plg = ""
End Sub
Sub Effacement()
Dim sh$: sh = ActiveSheet.Name: Application.ScreenUpdating = 0
Select Case sh
Case "Courriers": Job sh, "B83:E91,B94:E96,B12,E10:E12,F26"
Case "Salariés"
Job sh, "B8:B10,B15:B17,B12,B13,B19,B18,B21,B23,D8:D9," _
& "D16,D18,D20,D21,C26:D28,C37,C39,C49:D60,D68,D72:E85,D87:E96,D98:E101"
Case "Indemnités": Job sh, "A201:C214"
Case "CP": Job sh, "C7:C18"
Case "ES": Job sh, "C5,C6,J12,J19,J26,B31"
Case "FeuilCalcul": Job sh, "B6:B14,E6:E7"
End Select
Application.ScreenUpdating = -1: MsgBox "les données sont effacées"
Worksheets("Salariés").Select: [A6].Select
End Sub