Bonsoir,
Pourquoi tu copies/colles ensuite tes valeurs ?
Je te propose une macro, à insérer dans un module.
Sub Efface()
Dim Cellule As Range
For Each Cellule In Range("B1:B10")
If Cellule.Value = 0 Then
Cellule.ClearContents
End If
Next
End Sub
Elle permet d'effacer le contenu des cellules B1 à B10 (que tu peux adapter) pour celles qui contiennent "0" (tu peux également adapter par rapport à ce qu'elles contiennent).
Si ça ne fonctionne pas, fourni un fichier exemple.