Bonjour,

Voici un code (enfin une bidouille):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Worksheets("Courriers").Range("A1") = "ici mon texte"
Worksheets("Courriers").Range("A2") = "ici mon texte"
Worksheets("données").Columns(4).Value = Columns(7)
Les deux premieres lignes de codes fonctionnent mais la 3ème.
Je voudrais que la liste de nom dans la colonne D soit remplacer par la colonne G
Mais ça ne fonctionne pas !!
Comment puis-je faire ?

Merci pour votre aide.