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
Dim plage As Range
lig = FC.Range("A" & Rows.Count).End(xlUp).Row + 1
With Source.ActiveSheet
derlig = .Range("C" & Rows.Count).End(xlUp).Row
Set plage = .Range(.Cells(derlig, "C"), .Cells(derlig, "AM"))
plage.Copy FC.Range("A" & lig)
End With
Else
MsgBox "Aucun fichier sélectionné"
Exit Sub
End If
End With
End Sub