Private Sub RecupCodeArticle_Click()
Dim FicheArticle, Codeur As String
FicheArticle = ActiveWorkbook.Name
' Ouverture Fichier de Codification
Workbooks.OpenText Filename:=FichierAOuvrir, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False
End Sub