Code VBA - Copier / Coller des listes à la suite

Sub Choix_du_Fichier()

Dim FichierSource As Variant

Dim Source As Workbook
Dim Cible As Worksheet

    On Error GoTo Fin

    Set Cible = Sheets("Fin de Travaux réalisés")
    FichierSource = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")

    If FichierSource = False Then GoTo Fin

    Application.ScreenUpdating = False
    Set Source = Workbooks.Open(FichierSource)
    With Source
         .Sheets("Fin de Travaux réalisés").Range("C15:D800,M15:M800").Copy Destination:=Cible.Range("A1")
         .Close False
    End With
    Application.ScreenUpdating = True

    MsgBox "Fin de l'import !"
    GoTo Fin

Fin:

    Application.ScreenUpdating = True

    Set Cible = Nothing
    Set Source = Nothing

End Sub

Si quelqu'un à une idée, merci à vous.

Bonjour

Tu devrais joindre ton fichier source et un fichier sur lequel se trouve le résultat attendu.

Bye !

Bonjour,

Je met ci-joint mon fichier avec le résultat attendu.

J'ai réussi à mettre les colonnes les une derrières les autres. Mais j'aurais une dernière petite question.
Si ma ligne ne commence pas à la 15, comment pourrais-je faire ?

Par exemple les lignes que je veut copier commence à la 12 ou à la 19, cela dépend du fichier.
il y a d'autre ligne "non concerné au dessus" et je veut commencer à copier mes lignes dès que la valeur de la case est "C" comment pourrais-je faire ?

Merci à vous pour votre temps

Tu n'as pas joint le fichier source, c'est à dire le fichier qui contient les lignes que tu veux reporter sur ton fichier...

Bye !