Copier-Coler

[COLOR="Blue"]Sub[/COLOR] test()

[COLOR="Blue"]Dim [/COLOR]nomFichier [COLOR="Blue"]As String[/COLOR], fichierMensuel [COLOR="Blue"]As [/COLOR]Workbook
[COLOR="Green"]'récupérer le fichier mensuel à ajouter à ce classeur[/COLOR]
[COLOR="Blue"]Do[/COLOR]
    nomFichier = Application.GetOpenFilename(filefilter:="Fichier EXCEL, *.xls;*.xlsx", Title:="Sélection du fichier mensuel")
[COLOR="Blue"]Loop Until[/COLOR] UCase(nomFichier) <> "FAUX"

[COLOR="Green"]'ouvrir le fichier mensuel[/COLOR]
[COLOR="Blue"]Set [/COLOR]fichierMensuel = Application.Workbooks.Open(nomFichier)
[COLOR="Green"]
'copier le contenu de la première feuille à la suite de la feuille "Feuil1" de ce classeur[/COLOR]
[COLOR="Blue"]With [/COLOR]ThisWorkbook.Sheets("Feuil1")
    fichierMensuel.Sheets(1).UsedRange.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
[COLOR="Blue"]End With[/COLOR]

[COLOR="Green"]'fermer le fichier mensuel[/COLOR]
Application.DisplayAlerts = [COLOR="Blue"]False[/COLOR]
fichierMensuel.Close
Application.DisplayAlerts = [COLOR="Blue"]True[/COLOR]

End Sub