Private Sub CmdButtonOK_Click()
TypePlat = CboTypePlat.List(CboTypePlat.ListIndex)
TempsCuisson = CboTempsCuisson.List(CboTempsCuisson.ListIndex)
If IsNumeric(TempsCuisson) Then
TempsCuisson = Val(TempsCuisson)
With Sheets("cachée")
.Range("A2").FormulaR1C1 = _
"=AND((Feuil1!RC4 =""" & TypePlat & """),(Feuil1!RC10 = " & TempsCuisson & "))"
Range("Feuil1!zonebddtotale").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), CopyToRange:=.Range("A4:J4"), Unique:=False
End With
Else
With Sheets("cachée")
.Range("A2").FormulaR1C1 = _
"=AND((Feuil1!RC4 =""" & TypePlat & """),(Feuil1!RC10 = """ & TempsCuisson & """))"
Range("Feuil1!zonebddtotale").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), CopyToRange:=.Range("A4:J4"), Unique:=False
End With
End If
End Sub