Sub Graph()
'Filtre de la machine
Set Machine = Sheets("Feuil1").Range("C2")
If Machine <> "" Then
Sheets("Données J").Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:=Machine.Value
Sheets("Données J+1").Range("$A$2:$I$10000").AutoFilter Field:=1, Criteria1:=Machine.Value
End If
'Filtre S-1
Set MonFirst = Sheets("Feuil1").Range("A2")
If First <> "" Then
Sheets("Données J").Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:=MonFirst.Value
End If
'Filtre S-2
Set MonSecond = Sheets("Feuil1").Range("B2")
If First <> "" Then
Sheets("Données J+1").Range("$B$2:$I$10000").AutoFilter Field:=2, Criteria1:=MonSecond.Value
End If
End Sub