Ca y est, j'ai trouvé une solution plus générique. Le fichier à importer doit porter l'extention txt. Utiliser alors les commandes suivante:
Workbooks.OpenText Filename:=((Sheets("cellules").Cells(1, 5)) + "\bomimport.txt"), Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), _
Array(3, 2), ......, Array(50, 2))
où Array(X,Y) représente le nombre potentiel de colonnes à traiter. Toutes les colones sont de type Texte dans cet exemple afin de ne pas dénaturer les données source (en l'occurrence, les données du type 10-11 ou +DMP2)
Heu,.... Merci ????