'Création dans feuille Alerte_Stock
With Sheets("Alerte_Stock")
FAlSt = Sheets("Alerte_Stock").Range("A65536").End(xlUp).Row + 1
Sheets("Alerte_Stock").Cells(FAlSt, 1).FormulaR1C1 = "=BdD_Stock!RC"
Sheets("Alerte_Stock").Cells(FAlSt, 2).FormulaR1C1 = "=BdD_Stock!RC"
Sheets("Alerte_Stock").Cells(FAlSt, 3).FormulaR1C1 = "=BdD_Stock!RC[15]"
Sheets("Alerte_Stock").Cells(FAlSt, 4).FormulaR1C1 = "=SUMIFS(Mvt_Stock!C[-1],Mvt_Stock!C[1],"">=""&R[-3]C[-2],Mvt_Stock!C[1],""<=""&R[-3]C[1],Mvt_Stock!C[-3],RC[-3])"
Sheets("Alerte_Stock").Cells(FAlSt, 5).FormulaR1C1 = "=BdD_Stock!RC[6]"
Sheets("Alerte_Stock").Cells(FAlSt, 6).FormulaR1C1 = "=vlookup(RC[-3],BdD_Famille!C[-5]:C[-2],2,false)"
Sheets("Alerte_Stock").Cells(FAlSt, 7).FormulaR1C1 = "=vlookup(RC[-4],BdD_Famille!C[-6]:C[-3],3,False)"
Sheets("Alerte_Stock").Cells(FAlSt, 8).FormulaR1C1 = "=Int(RC[-4]-(RC[-4]*RC[-2]/100))"
Sheets("Alerte_Stock").Cells(FAlSt, 9).FormulaR1C1 = "=Roundup(RC[-1]+(RC[-1]*RC[-2]/100),0)"
If Sheets("Alerte_Stock").Cells(FAlSt, 9) >= Sheets("Alerte_Stock").Cells(FAlSt, 5) Then
Sheets("Alerte_Stock").Cells(FAlSt, 9).Color = -16776961
End If
End With