Mettre un path dans un optionbutton

Option Explicit

Private Chemin As String 'délcare la variable chemin

Private Sub Bouton2_Click()
    ActiveWorkbook.FollowHyperlink path & Listbox1
    Unload Me
End Sub

Private Sub CommandButton1_Click()
    Me.Hide
End Sub

Private Sub OptionButton1_Click()
    Chemin = Worksheets("feuil1").Range("A1").Value
    Me.Listbox1.Clear 'on efface le contenu
    AlimenterListBox
End Sub

Private Sub OptionButton2_Click()
    Chemin = Worksheets("feuil1").Range("A2").Value
    Me.Listbox1.Clear 'on efface le contenu
    AlimenterListBox
End Sub

Private Sub UserForm_Initialize()
'issu de abtony modif par MJ http://www.excel-downloads.com/forum/90822-lister-les-fichiers-xls.html
Chemin = Worksheets("feuil1").Range("A1").Value 'chemin par defaut a l'ouverture de la form
AlimenterListBox

End Sub

Sub AlimenterListBox()
    Dim Fichier As String
    Fichier = Dir(Chemin & "*.*")
    Do While Fichier <> ""
        If Fichier <> ThisWorkbook.Name Then Listbox1.AddItem Fichier
        Fichier = Dir()
    Loop
End Sub

Private Sub Workbook_Open()
    lance
End Sub

Private Sub OptionButton1_Click()
    Me.Listbox1.Clear
    path = Me.OptionButton1.Tag & "\"
    Fichier = Dir(path & "*.*")
    Do While Fichier <> ""
        If Fichier <> ThisWorkbook.Name Then Listbox1.AddItem Fichier
        Fichier = Dir
    Loop
End Sub
Private Sub OptionButton2_Click()
    Me.Listbox1.Clear
    path = Me.OptionButton2.Tag & "\"
    Fichier = Dir(path & "*.*")
    Do While Fichier <> ""
        If Fichier <> ThisWorkbook.Name Then Listbox1.AddItem Fichier
        Fichier = Dir
    Loop
End Sub
Private Sub UserForm_Initialize()
    Me.OptionButton1.Caption = "Chemin 1" 'A remplacer par le texte voulu
    Me.OptionButton2.Caption = "Chemin 2" 'idem
    Me.OptionButton1.Tag = [A1]
    Me.OptionButton2.Tag = [A2]
End Sub

 If .Selected(i) Then
            Workbooks.Open (path & .List(i))