Sub Macro3()
' on efface la feuille Graphiques
With Sheets("Graphiques")
.Range("A13:J" & Range("A65536").End(xlUp).Row).Clear
End With
'utilisation d'un filtre pour ne sélectionner que les data utiles
Sheets("Données").Range("F11").AutoFilter
ActiveSheet.Range("$A$11:$J$100").AutoFilter Field:=6, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0"
Rows("12:100").Select
'copy vers la feuille graphique
Selection.Copy Destination:=Sheets("Graphiques").Rows("13:13")
End Sub