Private Sub CommandButton2_Click()
Dim Monfichier As Variant '///modif pmo
'Parcourir mes documents pour ouvrir un fichier quelconque
Monfichier = Application.GetOpenFilename(Title:="Sélection du fichier", FileFilter:="Fichiers Excel *.xls (*.xls),")
If Not Monfichier = False Then Call ShellOuvre(CStr(Monfichier)) '///modif pmo
End Sub