bonjour
pour le faire à coup de boucles, cherche dans les anciens messages.
je propose autre chose ci-dessous,
mais cela n'utilise pas une méthode autofill
Intersect(Range("A1", [A65536].End(xlUp)), Range("A1", [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants, xlErrors + xlLogical + xlNumbers + xlTextValues)).Offset(, 1).FormulaR1C1 = "=RC[-1]+RC[1]"
tout dépend de ce que tu veux faire exactement.
dis en plus si tu n'as toujours pas trouvé ce que tu veux