Dim CL As Range
Range("B1:B17").Select
For Each CL In Selection
If CL.Value = 0 Then
Cells(CL.Row, CL.Column + 1).Value = ""
Else
Cells(CL.Row, CL.Column + 1).Value = CL.Value
End If
Next[\code]
Ici, on ne reporte que les montants significatifs dans la colonne C qui deviendra la donnée source du graphique.
A+