Sub FCMLE()
Dim Source As Workbook, Cible As Workbook, DLC As Long, DLS As Long, FC As Worksheet
Set Cible = ThisWorkbook
Set FC = Cible.Worksheets("DSN")
If DLC > 1 Then
FC.Range("C2:AM" & DLC).ClearContents
End If
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False 'n'autorise pas choix multiple
If .Show = -1 Then ' si fichier sélectionné
Set Source = Workbooks.Open(.SelectedItems(1))
With Source.ActiveSheet
DLS = .Range("C" & Rows.Count).End(xlUp).Row
.Range("C2:AK" & DLS).Copy FC.Range("A2")
.Range("AM2:AN" & DLS).Copy FC.Range("AL2")
End With
Source.Close
Else
MsgBox "Aucun fichier sélectionné"
Exit Sub
End If
End With
End Sub