Bonjour le Forum
Merci Ashireon

ça marche très bien merci encore pour le coup de main.

j'apprécier énormément

je galéré encore sur un autre code pour finaliser le projet c'est toujours cette Select que je n'arrive pas contourner j'ai essayé avec With
mais rien a faire "la méthode select de la classe range a échoué"

voila le code originale :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Feuil2.Range("F" & Application.Rows.Count).End(xlUp).Select
voila ce que j'ai modifier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
With Worksheets("Imprim")
    .Range("F" & Application.Rows.Count).End(xlUp).Select
    End With
il régénéré la même erreur dans les deux cas.

Merci encore et bonne journée.