Macro remplissage cellule vide par 0

Bonjour à tous!

Je reviens vers vous pour un autre problème

J'aimerais remplir les cellules vides de mon tableau par 0

Mon tableau n'a pas de nombre de lignes définie et les cellules vides seront toujours en colonne J, K, L, M s'il y en a car çà ne sera pas toujours le cas

Merci pour votre aide

je joins le fichier pour exemple

Critof

Bonjour

Code Module

Sub Modifie()

Range("A2", [A2].End(xlDown)).Offset(, 9).Select
Range(Selection, Selection.Offset(0, 3)).Select
Dim MaCellule As Object
For Each MaCellule In Selection
If IsEmpty(MaCellule) Then
MaCellule.Value = 0
End If
Next MaCellule
Range("J2").Select
End Sub

Cordialement

Bonjour @ tous,

On peut le faire sans Macro..

• Sélectionner la plage en question
• Puis Remplacer vide par 0

@ + +

Merci à vous 2 ça fonctionne très bien 8)

Je prends la solution d'Amadéus car il me faut une macro

Merci quand meme R@chid

Bon week end à vous