Ajout d'un bouton pour récupérer données d'un fichier externe

Sub MaJ_Cadencier_Prevision(MFM As Worksheet)

Windows(Nom_Fichier_Cadencier).WindowState = xlMaximized

'VBA feuil6
Sub CommandButton2_Click()
    'Modifie le chemin du fichier stock et sorties
    Dim MFM As Worksheet
    Set MFM = Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name)
    'Appelle la procédure pour mise à jour du nom de fichier
    Call Selection(MFM, "CheminStocks", "Fichier_Stocks", "Selectionner le fichier ''stock et sorties''", "FeuilleStock")
End Sub

'bouton CMD
Sub CommandButton3_Click()
    'Modifie le chemin du fichier CMD
    Dim MFM As Worksheet
    Set MFM = Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name)
    'Appelle la procédure pour mise à jour du nom de fichier
    Call Mod_Chgt_Nom_Fichiers.Selection(MFM, "CheminCMD", "Fichier_CMD", "Selectionner le fichier ''CMD''", "Feuille_CMD")
End Sub

'module Mod_Chgt_Nom_Fichiers
Option Explicit

Sub Selection(MFM As Worksheet, NmCellChemin As String, NmCellNom As String, Titre As String, NmCelNomFeuille As String)
    Dim Fs As FileDialog
    Dim Chemin As String
    Dim Nom_Feuille As String
    Dim Nom_Fichier As String
    Dim Nom_Chemin As String

    Set Fs = Application.FileDialog(msoFileDialogOpen)

    Nom_Fichier = MFM.Range(NmCellChemin)
    Nom_Chemin = MFM.Range(NmCellNom)

    'ouvre une boite de dialogue pour sélectionner le fichier
    Fs.Title = Titre
    Fs.AllowMultiSelect = False
    Fs.Filters.Clear
    Fs.Filters.Add "Microsoft Excel", "*.xls*"
    Fs.InitialFileName = Nom_Fichier
    Fs.Show

    If Fs.SelectedItems.Count <> 1 Then
        Exit Sub
    End If

    Nom_Fichier = Fs.SelectedItems.Item(1)
    Nom_Chemin = Fs.SelectedItems.Item(1)

    'Sépare le texte sélectionné en "chemin" et en "nom"
    Do Until InStr(Nom_Fichier, "\") = 0
        Nom_Fichier = Right(Nom_Fichier, Len(Nom_Fichier) - InStr(Nom_Fichier, "\"))
    Loop
    Nom_Chemin = Left(Nom_Chemin, Len(Nom_Chemin) - Len(Nom_Fichier))
    Nom_Feuille = Left(Nom_Fichier, InStr(Nom_Fichier, ".") - 1)
    'Mets à jour les cellules correspondantes
    MFM.Range(NmCellChemin) = Nom_Chemin
    MFM.Range(NmCellNom) = Nom_Fichier
    MFM.Range(NmCelNomFeuille) = Nom_Feuille
End Sub