Re : Graphique sous condition
pb technique, je joinds le code car pas moyen d'envoyer de fichier...
Range("C14:H16").Select
Selection.ClearContents
t = 3
For i = 3 To 8
If Cells(4, i).Value > 0 Then
If Cells(5, i).Value > 0 Then
Cells(14, t).Value = Cells(3, i).Value
Cells(15, t).Value = Cells(4, i).Value
Cells(16, t).Value = Cells(5, i).Value
t = t + 1
End If
End If
Next