Erreur sur code ClearContents

Bonjour

Je n'arrive plus a trouver la solution pour que ce morceau de code fonctionne

Worksheets("Journée 1").Range("J2:S7";"J11:S16";"J20:S25";"J29:S34";"J38:S43").ClearContents

merci pour votre aide

Crdlt

Bonjour Joco7915, le forum,

Essaies ainsi:

Worksheets("Journée 1").Range("J2:S7,J11:S16,J20:S25,J29:S34,J38:S43").ClearContents

Cordialement,

With Worksheets("Journée 1")
    .Range("J2:S7").ClearContents
    .Range("J11:S16").ClearContents
    .Range("J20:S25").ClearContents
    .Range("J29:S34").ClearContents
    .Range("J38:S43").ClearContents
End With

Bonjour xorsankukai, Wonder Aleph

Merci pour votre aide

Cordialement