'Initialisation de la userform
Private Sub UserForm_Initialize()
Me.OptionButton1.Caption = "Fichier de base *.dbf" 'A remplacer par le texte voulu
Me.OptionButton2.Caption = "Fichier commercial *.xls" 'A remplacer par le texte voulu
Me.OptionButton1.Tag = [A1] 'Cellule contenant le path
Me.OptionButton2.Tag = [A2] 'Cellule contenant l