Private Sub Worksheet_Change(ByVal Target As Range)
'Club
j = [A65536].End(xlUp).Row
Feuil3.[A3].Resize(j - 4, 15) = Range("A4:O" & j).Value
Feuil3.[A3].Range("$A$2:$N$" & j).AutoFilter Field:=1, Criteria1:="<>"
Feuil3.[A3].Range("$A$2:$N$" & j).AutoFilter Field:=2, Criteria1:=Array( _
"A.S POLICE RENNES", "A.S.A.E.C COETQUIDAN", "A.S.A.L LORIENT", "A.S.M.C.BREST", _
"A.S.P.T.T. MORLAIX", "A.S.T.A", "A.S.TIR TRÉGUIER", "ASCAM VANNES", _
"ASS.BRIOCHINE TIR DE LA POLICE", "ASSOCIATION TIR DE PLOUARZEL", _
"ASSOCIATION TYR PONDI", "BCRM ECOLE NAVALE", "BRETAGNE ORGANISATION TIR", _
"BTC LIFFRÉ", "C.S.B.T LANESTER", "C.S.C. GARNISON VANNES 56", _
"C.S.GARNISON RENNES", "C.T.BRETAGNE LA DETENTE", "CARABINE BIGOUDENNE", _
"CENTRE BRETAGNE", "CLUB 357", "CORSAIRES MALOUINS", "CSA MARINE BREST", _
"CSL 11° RAMA", "CSLG TY VOUGERET", "DE BOURNAZEL", "ESPACE TIR GUICHEN PONT REAN" _
, "EUROTIR 22 PLUMIEUX", "FRÉHEL MULTISPORTS", "GARDES CELTIQUES", "LA BRESTOISE", _
"LA CORNOUAILLE", "LA DU GUESCLIN", "LA FOUGERAISE", "LA PRESQU'ILE", _
"L'AURORE DE VITRÉ", "L'IMPACT", "PLOEMEL TIR", "SAINT KÉ", "ST ALRÉENNE DE TIR", _
"ST CONCARNEAU", "ST DU GOËLO", "ST QUIBERON", "ST TIREURS DU TRIEUX", "STAND 29", _
"STELLA MARIS", "TIR DE LA RADE", "TIR des S.O.R", "TIR DU POHER", "TIR EMERAUDE", _
"TIR OLYMPIQUE REDONNAIS", "TIR SPORTIF BRIOCHIN", "TIR SPORTIF DE PLOUGASTEL", _
"TIR SPORTIF DU TRÉGOR", "TIREURS DU LOCH", "VOLONTAIRES JANZÉENS", "="), _
Operator:=xlFilterValues
'Comité
Feuil4.[A3].Resize(j - 4, 15) = Range("A4:O" & j).Value
Feuil4.[A3].Range("$A$2:$M$" & j).AutoFilter Field:=4, Criteria1:="CD"
End Sub