Copier une plage vers une cellule active d'une feuille active

Peux tu en dire un peu plus, ou mieux, envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller"

Cdlmnt

http://www.cjoint.com/c/GDqp4aDrfed

Si j'ai bien compris ta demande (tes explications ???)

Public Sub Copier()
Sheets("Lexique").Range("AA1:AZ207").Copy ActiveCell
End Sub

Cdlmnt

En fait, je me suis peut être mal exprimé. Je voudrais copier la zone AA1: AZ207 du lexique dans dans la feuille qui sera ouverte dans la cellule que j'aurai séléctionné

Re
Ca fonctionne mais j'aimerai également pouvoir copier également la largeur des colonnes, est ce possible

Public Sub Copier()
Dim plage As Range
Set plage = Sheets("Lexique").Range("AA1:AZ207")
plage.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

Cdlmnt

Merci beaucoup, j'avais la première formule mais avec la deuxième c'est super.
Merci beaucoup
Cordialement

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt