Bonjour,
Le problème, c'est que cela dépend de la langue utilisée pour afficher les infos.
Or, excel ne connait que l' "américain", à savoir la virgule pour séparer les milliers et l point pour les décimales.
Cells(i, "B").Offset(0, k).Value = Val(Replace(Replace(mydata(.responseText, avant1, apres1, avant2, apres2, indice), Chr(10), ""), ",", "."))