Effacement de Données

Bonjour!

j'ai mis au point cette Macro qui me permet d'effacer des données dans tous les feuilles du classeur, pour la première feuille nommée "Delais Livraisons" tout ce passe bien mais pour le reste des 35 feuilles restantes rien ne va, je vous met la macro en code, pour me corriger...

Sub RAZORDO()
If MsgBox("Voulez-vous réellement Effacer l'Ordonnancement actuel?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Range("A8:A3600").ClearContents
Range("E8:L3600").ClearContents

        For Each Sheet In Worksheets
            If Not Sheet.Name = "Delais Livraisons" Then
                With Range("A8:A3600")
                    .ClearContents
                End With
            End If
        Next Sheet

End If
End Sub

Merci d'avance, à plus

Bonjour

A essayer

Sub RAZORDO()
    If MsgBox("Voulez-vous réellement Effacer l'Ordonnancement actuel?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
    Range("A8:A3600").ClearContents
    Range("E8:L3600").ClearContents

            For Each Sheet In Worksheets
                If Not Sheet.Name = "Delais Livraisons" Then
                    With Sheet.Range("A8:A3600")
                        .ClearContents
                    End With
                End If
            Next Sheet

    End If
    End Sub

Evites les variables qui ressemble à des mots clefs de VB ( Sheet et Sheets)

Bonjour;

c'est parfait cela marche, je ne voyais pas du tous l'erreur et j'aurai surement stagner dessus, je n'étais pas positionner sur les feuilles du classeurs? question de comprendre et merci encore.