Bonjour,

J'essaie d'insérer des colonnes provenant d'un fichier Excel "Tableau.xlsx" et je souhaiterais les insérer après la dernière cellule vide de mon fichier contenant la macro ci-dessous.
ça fonctionne sauf que cela insère les colonnes dans le tableau "Tableau.xlsx" et non dans le fichier contenant la macro.
pourriez-vous svp m'aider ?

Sub test()

Dim Msg
Dim Rep
Dim col As Long

Windows("Tableau.xlsx").Activate

Msg = InputBox("Avez-vous besoin de récupérer un autre mois? Si oui indiquer le nom de l'onglet. Sinon, cliquer sur annuler")
Set onglet = Sheets(Msg)
onglet.Activate
Set Rep = Application.InputBox(prompt:="Sélectionner les colonnes à copier", Title:="Copie", Type:=8)
Rep.Copy
ThisWorkbook.Activate
Sheets("Présence").Activate
col = Range("N2").End(xlToRight).Column
Rep.Insert

End Sub