C'est génial, merci Pascal.
J'ai un peu adapter vu que je ne connais pas au départ le nom du fichier, mais grace a un de mes ancien post sur plus ou moins le même sujet, j'y suis parvenu, voici le résultat au cas où :
ChDir "C:\Documents and Settings\DTH\Desktop"
chemin = Application.GetOpenFilename("Fichier Texte(*.csv),*.csv")
If chemin <> False Then Workbooks.Open chemin
monclasseur = ActiveWorkbook.Name
Workbooks.OpenText Filename:=monclasseur, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False
Enfin merci, tu m'évite plein de complication.
j'y retourne...
dth