Microsoft 365 Intersect avec effacement de lignes

[Mongo]

Bonjour,

Dans une de mes macros, j'utilise la fonction ci-dessous pour supprimer des lignes :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.Delete xlShiftUp
End With

Dans un autre fichier, plutôt que supprimer les lignes, je voudrais seulement effacer une partie de la ligne. Pour ce faire, j'ai pensé que la modification ci-dessous fonctionnerait mais ce n'est pas le cas :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.ClearContents xlShiftUp
End With

Par avance merci

 

[Compte Supprimé 979]

Bonjour Mongo

On nous invente des choses tous les jours

"xlShiftUp" ne sert que pour le "Delete"

.EntireRow.ClearContents

A+