Bonjour,
Je n'ai pas de fichiers sous les yeux donc, j'ignore comment ils sont faits mais, si les fichiers destinations comportent le même nombre de colonnes et que la première ligne (hors entêtes) commence à la ligne 2, voici ce que je ferai:
sous la ligne suivante:
wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(result1, 1), UBound(result1, 2)) = result1
j'ajouterai:
Range(wb.Sheets(1).Cells(2, "K"), wb.Sheets(1).Cells(Rows.Count + 1, "K")).FormulaR1C1 = "=RC9*(1+RC10)"
je ne peux pas en vérifier l'exactitude mais, je ne dois pas être loin de la vérité, à ajuster si nécessaire.
Cdlt