Private Sub UserForm_Activate()
Dim Fin As Integer, Chemin As String, [COLOR="red"]Feuil As Range[/COLOR]
Chemin = ThisWorkbook.Path & "\"
NomClasseur = "devis.xls"
[COLOR="red"]Feuil = TextBox2[/COLOR]
If ClasseurOuvert(NomClasseur) = False Then Workbooks.Open (Chemin & NomClasseur)
With Workbooks("devis.xls").[COLOR="Red"]Sheets(Feuil)[/COLOR]