错误13与.Transpose

Question

With WorksheetFunction
    aProducts = .Transpose(.Transpose(aProducts))
    aArticles = .Transpose(.Transpose(aArticles))
End With

嗨，伙计们

此代码在昨天工作但不再存在：它仍然适用于“aProducts”但错误13：类型不匹配显示“aArticles”。

这是一个反复出现的错误吗？你知道它为什么停止工作吗？

编辑1

链接到文件：https://drive.google.com/open?id=0B5DpGwPWsIfbSWlDbkxCVWtMWU0 你只需要运行Sub final_code

如果要测试

，请记住将数据集1或2重命名为“Données”

感谢您的时间。