XL 2016 Bug effacement cellules

[thomasdu43]

Bonjour à tous,

J'utilise le code suivant afin d'effacer certaines cellules d'une feuille "Formulaire"

Sub Effacer_cellulesFormulaire()
'
' Effacer_cellules
'
    Dim Ctl As Shape
    Application.EnableEvents = False
    With Worksheets("Formulaire")
    Range( _
       "E11:E12,H11:H12,D13:E13,D14:G14" _
       ).ClearContents
    End With
Application.EnableEvents = True
End Sub

Le code fonctionne très bien sauf à partir du moment où j'augmente le nombre de cellules à effacer. J'obtiens le message suivant

Quelqu'un peut il m'aider à régler ce problème ?

Merci et bonne journée.

 

[M12]

Bonjour,
A savoir combien de plage tu inscrit dans ta ligne de macro.
Si la ligne est trop longue, tu as ce message
La solution serait de scinder tes plages sur deux lignes

 

[thomasdu43]

Bonjour,
A savoir combien de plage tu inscrit dans ta ligne de macro.
Si la ligne est trop longue, tu as ce message
La solution serait de scinder tes plages sur deux lignes

Bonjour,
J'ai une centaine de cellules que je souhaite effacer. Deux lignes seront elles suffisantes ?
Merci.

 

[M12]

Re,
Tu ferais mieux de placer ton classeur (anomisé)
Sinon, teste déjà avec un nombre de plage restreint sur une seule commande et au moment où tu auras l'erreur tu refais une deuxième ligne de commande, voir trois
Mais il y a peut-être plus simple, mais sans classeur