Sub tete_a_tete2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("Tête à Tête").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A3")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:=Sheets("MDJ").Range("D2")
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:=Sheets("MDJ").Range("C2")
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Tête à Tête").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub
Sub domicile2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=7, Criteria1:= _
"=" & Sheets("MDJ").Range("D2"), Operator:=xlOr, Criteria2:="=" & Sheets("MDJ").Range("C2")
Sheets("Domicile").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Domicile").Range("A3")
End Sub
Sub exterieur2()
Sheets("BaseComplete").Rows("2:2").AutoFilter
derlin = Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BaseComplete").Range("$A$2:$U$" & derlin).AutoFilter Field:=9, Criteria1:= _
"=" & Sheets("MDJ").Range("D2"), Operator:=xlOr, Criteria2:="=" & Sheets("MDJ").Range("C2")
Sheets("Extérieur").Range("A3:O" & Rows.Count).ClearContents
Sheets("BaseComplete").Range("A3:O" & Sheets("BaseComplete").Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Sheets("Extérieur").Range("A3")
End Sub