Bonjour
Sans entrer dans le détail de ton appli.
Tu déclare une variable (QuantiteDispostock) comme double, donc numérique, or, tes formule renvoi un texte "", Résultat erreur 13
Dans le cas présent j'ai mofifié le code comme ceci
If FeuilDonneesArticles.Range("E" & i).Value = "" Then
QuantiteDispostock = 0
Else
QuantiteDispostock = FeuilDonneesArticles.Range("E" & i).Value
End If