Error 13 with .Transpose
<pre><code>With WorksheetFunction
    aProducts = .Transpose(.Transpose(aProducts))
    aArticles = .Transpose(.Transpose(aArticles))
End With
</code></pre>

<p>Hi, guys</p>

<p>This code worked yesterday but not anymore: it still works with "aProducts" but the error 13: type mismatch shows up for "aArticles". </p>

<p>Is it a recurrent error? Do you have any idea why it stoped working? </p>

<p><strong>EDIT 1</strong> </p>

<p>Link to the file : <a href="https://drive.google.com/open?id=0B5DpGwPWsIfbSWlDbkxCVWtMWU0" rel="nofollow noreferrer">https://drive.google.com/open?id=0B5DpGwPWsIfbSWlDbkxCVWtMWU0</a>
You just have to run Sub final_code</p>

<p>Remember to rename the dataset 1 or 2 as "Données" if you want to test</p>

<p>Thanks for your time.</p>