Code à modifier

Bonjour

J'ai ce code qui fonctionne bien pour mon fichier dont la source
débute en ligne 2 la ligne 1 étant les entêtes .
Je n'arrive pas à modifier ce code pour un autre fichier .
La ligne 3 étant les entêtes le début les infos a transférer commencent en ligne 408.
Pouvez vous svp me dire ce que je dois modifier pour réussir à faire fonctionner ce code dans mon autre fichier
Je vous remercie

Sub Extrait()
Set f = Sheets("BD")
'--- Liste des élèves
f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[K1], Unique:=True
For Each c In f.Range("K2:K" & f.[K65000].End(xlUp).Row) ' pour chaque élève
f.[K2] = c.Value
On Error Resume Next
temp = CStr(c.Value)
Sheets(temp).Select ' la feuille existe t-elle?
If Err <> 0 Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = temp
End If
'-- extraction
f.[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[K1:K2], CopyToRange:=[A1:D1]
Next c
End Sub