Filtre avancé

Bonjour,

Grâce à ce forum, je dispose d'un code me permettant de faire un filtre avancé avec la prise en compte d'un criètere.
Voici le code que l'on m'a donné et qui marche très bien :

With Sheets("Base SID")
    Set Plage = .Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 17))
    Plage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("BRADERIE").[B1:B2], CopyToRange:=Sheets("BRADERIE").[B7], Unique:=False
End With

Ma base de données "Base SID" compte 17 colonnes (de A à Q), je souhaiterais faire évoluer ce code pour qu'au lieux de filtrer et de copier l'ensemble des 17 colonnes, il ne copie que les colonnes A - B - F - G - H - J - L - M - N - O - P - Q. Les entêtes de colonnes sont inscrites en ligne 5.

Quelqu'un saurait m'aider ? merci pour votre aide