Dépassement de capacité

Bonjour,

J'ai un problème avec mon code, j'ai une feuille avec un peu plus de 5000 ligne avec des valeurs sur 8 colonnes, j'ai un petit bout de code qui me permet normalement de mettre toutes les cellules, qui contiennent uniquement un 0, en cellule vide.
Cependant j'ai une erreur de dépassement de capacité et je ne comprends pas pourquoi.

nbLigneSource = Mid(Sheets("Source").Range("A" & Rows.Count).End(xlUp).Address, 4, 4)

 For Each c In Sheets("Source").Range("C2:H" & nbLigneSource) 
            If c.Value = 0 Then
                     c.Value = "" 
           End If
Next

Merci d'avance.

Zapsalis

Bonjour,

Et ce n'est pas plus simple de faire ceci?

Sheets("Source").Range("C2:H" & nbLigneSource).Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cdlt

Ca marche parfaitement.

Merci !

Zapsalis