Mettre une macro sur 2 lignes

Est-il possible de mettre une macro sur 2 lignes?

Cordialement

.Range("E4:E9,A12:C16,E12:E16,A19:C31,E19:E31,A39:C43,E39:E43,A45:C58,E45:E58,A66:C70,E66:E70,A72:C85,E72:E85,A93:C97,E93:E97,A99:C112,E99:E112,F10,F37,F64,F91,G10,G19:I24,G26:I31,G45:I51,G52:I58,G72:I78,G79:I85,G99:I105,G106:I112,G115,G118,G120").SpecialCells(xlCellTypeConstants, 23).ClearContents

Bonjour,

Comme ceci

.Range("E4:E9,A12:C16,E12:E16,A19:C31,E19:E31,A39:C43,E39:E43,A45:C58,E45:E58,A66:C70,E66:E70,A72:C85,E72:E85,A93:C97, _
  E93:E97,A99:C112,E99:E112,F10,F37,F64,F91,G10,G19:I24,G26:I31,G45:I51,G52:I58,G72:I78,G79:I85,G99:I105,G106:I112,G115, _
  G118,G120").SpecialCells(xlCellTypeConstants, 23).ClearContents

pour couper la ligne, mettre un espace, suivi d'un "underscore" (souligné touche 8) et entrée pour aller à la ligne

Bonjour M12

Ça veut pas

J'ai du faire une connerie (comme d'hab)

Erreur de compilation erreur de syntaxe

je vais mieux regarder

Merci à toi

Re,

Il ne supporte peut-être pas la coupure entre

Dans ce cas sur deux lignes

.Range("E4:E9,A12:C16,E12:E16,A19:C31,E19:E31,A39:C43,E39:E43,A45:C58,E45:E58,A66:C70,E66: E70 , A72: C85 , E72: E85 , A93: C97 , E93: E97 ").SpecialCells(xlCellTypeConstants, 23).ClearContents
.Range("A99:C112,E99:E112,F10,F37,F64,F91,G10,G19:I24,G26:I31,G45:I51,G52:I58,G72:I78,G79:I85,G99:I105,G106:I112,G115,G118,G120").SpecialCells(xlCellTypeConstants, 23).ClearContents

Re M12

Exact ça fonctionne.

Merci à toi

Bonne journée

Cordialement

Ps: Excel 2003