Sub Fichier_en_Lecture_Seule()
Dim Nom_Fichier As String, Objet_Fichier As Variant, Fichier_a_Modifier As Variant
'initialisation dialogue pour choix du fichier
With Application.FileDialog(msoFileDialogFilePicker)
.ButtonName = "Modifier"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path & "\*"
.Title = "Choisissez le fichier à modifier"
.Filters.Clear
.Filters.Add "Fichiers Excel", "*.xlsm; *.xlsx", 1
.Show
If .SelectedItems.Count > 0 Then
Nom_Fichier = .SelectedItems(1)
Else
MsgBox "pas de fichier sélectionné", vbOKOnly + vbInformation
Exit...