Microsoft 365 Intersect avec effacement de lignes

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