Vb msgbox pour copier coller certaines cellules

Bonjour,
J'ai besoin d'aide car je suis bloquée. J'essaye de créer une macro pour pouvoir choisir quelles cellules je veux copier.
je m'explique, j'ai un tableau avec des données dans les colonnes A à D et j'aimerai avoir une macro msgbox qui me demande quelle plage de cellules je veux copier et coller. Par exemple aujourdhui je voudrais copier la plage A1 à
B6 et demain, je voudrais choisir une autre plage...
HELP .... :cry:

Voici le début de mon code mais il y a un beug au niveau du coller et je pense que mon code est beaucoup trop long ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub copie_colle()   ' ouvre le fichier à copier Workbooks.Open ("T:\...Classeur1")   ' je choisis ma plage Messagecolonne = InputBox("quel colonne ?") Messageligne = InputBox("quel ligne ?")   If Messagecolone = 1 Then if Messageligne = 6 then Sheets("Feuille copier").Range("A1:A6").Copy Workbooks("Classeur2").Sheets("Feuille coller").Select Range("A1").Paste   Else if ... 'je continue jusqu'à la colonne numéro 4 (colonne D)   End If End Sub

---

Bonjour,
adaptes ce code avec lequel tu sélectionnes ta plage directement dans ta feuille

Code:

---

1 2 3

Dim plage As Range Set plage = Application.InputBox("Sélectionnez une plage", Type:=8) plage.Copy Destination:=Sheets("Feuil2").Range("A1")

---

penses à changer la destination par la destination réelle

merci its perfect avec mes modifs