bon j'ai fini par trouver
il fallait ajouter la feuille f1 devant les cells
Set champ = .Range(f1.Cells(ligdep, 1), f1.Cells(ligfin, 6))
bon maintenant j'ai un autre soucis c'est que sur mon fichier l'userform se lance bien avec la copie , je le ferme et là si je recommence j'ai une erreur 1004
mais bon cela fera l'objet d'un autre fil
je vais déjà tester qq trucs et si ça va pas je reviendrai vers vous
merci