Bonjour PHILOU10120,
Je te remercie de me venir en aide,
Ce que je veux, c'est de rendre réellement vide les cellules contenant un 0 ou ayant dans une formule ""
J'ai besoin de visualise les 0
J'ai trouvé ceci sur le Net, mais je ne sais pas si ça répond à ma demande et comment m'en servir :
Rendre les cellules vides au lieu de 0 et "".
'Le code 32 est l'espace "normal"
Sub EffaceCar32()
For Each X In Selection
If X.Value = Chr(32) Then X.ClearContents
Next
End Sub
'Le code 160 est l'espace insécable.
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub
Sub EffaceCar160Car32()
For Each X In Selection
If X.Value = Chr(160) Or X.Value = Chr(32) Then X.ClearContents
Next
End Sub
