Private Sub OuvertureFichiers()
ChDir ThisWorkbook.Path
On Error Resume Next
Set classeur_rmf = Workbooks.Open(ThisWorkbook.Path & "\Sources\Mon Fichier.xls*")
If Not classeur_rmf Is Nothing Then 'Control si le classeur a été ouvert précèdement
Set classeur_rmf = Workbooks.Open(ThisWorkbook.Path & "\Sources\Mon Fichier.xlsx*")
End If
End Sub