Merci pour vos reponces ,
- Amadeus, j'ai tente d'adapter le code que tu m'as donner et tt ce que j'ai reussi à faire c'est de copier l'integralité de la feuille lol
- Felix, Ton petit fichier marche à la perfection, sauf qu' en l'adaptant à mon classeur, il ne me copie que les selections de la colone A, pas B ou C etc.
Le debogeur me surligne ca
Set o = Application.Intersect(Range("A1"), Target)