Re,
Tu formates la première cellule de la colonne en "Nombre", comme c'est un tableau structuré, ce format sera répété sur les cellules de dessous et dans le code donné, tu changes la ligne :
Lig.Range(, 5).Value = Quant
par celle-ci :
Lig.Range(, 5).Value = CDbl(Quant)