Macro sur tous les onglets excepté 6

Bonjour,

Je souhaite appliquer une Macro qui supprimerait le contenu des cellules sur une plage donnée (ou plusieurs dans ce cas) de tous les onglets sauf 6.

Voici mon code:

Sub RAZ()

Application.ScreenUpdating = False

Dim sht As Worksheet

For Each sht In Worksheets
With sht
If sht.Name <> "A-ADP" And sht.Name <> "A-BASE" And sht.Name <> "A-RECAP" And sht.Name <> "A-MEMO" And sht.Name <> "ZZ-Sortants" And sht.Name <> "ZZ-Vierge" Then

Range("A22:B22").Select
Selection.ClearContents
Range("D22:H22").Select
Selection.ClearContents

Range("A24:B24").Select
Selection.ClearContents
Range("D24:H24").Select
Selection.ClearContents

Range("A26:B26").Select
Selection.ClearContents
Range("D26:H26").Select
Selection.ClearContents

Range("A28:B28").Select
Selection.ClearContents
Range("D28:H28").Select
Selection.ClearContents

Range("A30:B30").Select
Selection.ClearContents
Range("D30:H30").Select
Selection.ClearContents

Range("A32:B32").Select
Selection.ClearContents
Range("D32:H32").Select
Selection.ClearContents

Range("A34:B34").Select
Selection.ClearContents
Range("D34:H34").Select
Selection.ClearContents

Range("A36:B36").Select
Selection.ClearContents
Range("D36:H36").Select
Selection.ClearContents

Range("A38:B38").Select
Selection.ClearContents
Range("D38:H38").Select
Selection.ClearContents

Range("A40:B40").Select
Selection.ClearContents
Range("D40:H40").Select
Selection.ClearContents

Range("A42:B42").Select
Selection.ClearContents
Range("D42:H42").Select
Selection.ClearContents

Range("A44:B44").Select
Selection.ClearContents
Range("D44:H44").Select
Selection.ClearContents

Range("A46:B46").Select
Selection.ClearContents
Range("D46:H46").Select
Selection.ClearContents

Range("A48:B48").Select
Selection.ClearContents
Range("D48:H48").Select
Selection.ClearContents

Range("A50:B50").Select
Selection.ClearContents
Range("D50:H50").Select
Selection.ClearContents

Range("A22").Select

End If
End With
Next sht

Application.ScreenUpdating = True

End Sub

Cependant, cela ne fonctionne pas puisque ce code supprime le contenu des cellules contenues dans la plage mais uniquement sur l'onglet où se trouve le bouton et qui se nomme "A-MEMO", qui correspond à un des onglets pour lequel je ne souhaite pas que la macro agisse...

Pourriez-vous m'aider svp?

Merci par avance