' on prends de la colonne B à la colonne F pour mettre dans un tableau mémoire
Bd = f.Range("B2:F" & f.[B65000].End(xlUp).Row)
' et on trouve où est la dernière ligne de la colonne B
'
'
' et plus loin
Feuil1.[B1:F1].Copy [a1] 'copie des titres vers la nouvelle feuille ' on copie de la B1 à F1 vers la feuille