Bonsoir,
Jai résolu une partie de mon problème en modifiant la ligne :
Workbooks.OpenText chemin & fichier, Origin:=65001, DataType:=xlDelimited, ConsecutiveDelimiter:=False, TextQualifier:=xlDoubleQuote, Comma:=True, DecimalSeparator:=".", Local:=True
Elle force la reconnaissance de la source...