Sub ExtractAutreFeuille()
Set F1 = Sheets("Recherche")
Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=F1.Range("C3:H4"), CopyToRange:=F1.Range("C7:E7"), Unique:=True
End Sub
Sub Nettoyage()
Set F1 = Sheets("Recherche")
maplage = [H13].Value
F1.Range(maplage).Clear
'F1.Range("C8:E" & [C65536].End(xlUp).Row).Clear
End Sub