Sub RemplacerCelluleVilleZeros() Dim plagecell As Range Selection.Value = Selection.Value For Each plagecell In Selection If plagecell = "" Or plagecell = " " Then plagecell.Value Else End If Next plagecell End Sub
Pour les données où vous avez des cellules vides, vous pouvez utiliser le code ci-dessous pour ajouter des zéros dans toutes ces cellules. Cela facilite l’utilisation de ces cellules dans des calculs ultérieurs.