Gestion de stock sur Excel

Date Achat	References	Entrées	Sorties	Fournisseur
01/01/2008	    1	           50		    A

Ref. Départ Désign. Fourn. NbEntrées NbSorties Vol.Entrées Vol.Sorties  en-cours
1	10    Sac 1	A	FA	  FB	      FC	    FD	     FE

Formules :
FA =SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$C$2:$C$65536>0))
FB =SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$D$2:$D$65536>0))
FC =SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$C$2:$C$65536))
FD =SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$D$2:$D$65536))
FE =B2+G2-H2

et la formule sur une seule cellule pour le stock en cours
=B2+SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$C$2:$C$65536))-SOMME((Mouvements!$B$2:$B$65536=A2)*(Mouvements!$D$2:$D$65536))

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Column = 10 Then
    Dim lig As Long
    With Sheets("Commande")
        .Activate
        lig = .Cells(65536, 1).End(xlUp).Row + 1
        .Cells(lig, 1).Value = Date
        .Cells(lig, 2).Value = Sheets("Stocl Départ").Cells(sel.Row, 1).Value
        .Cells(lig, 3).Select
    End With
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
Cancel = True
If sel.Column = 1 Then
    Dim lig As Long
    With Sheets("Commande")
        .Activate
        lig = .Cells(65536, 1).End(xlUp).Row + 1
        .Cells(lig, 1).Value = Date
        .Cells(lig, 2).Value = Sheets("Stocl Départ").Cells(sel.Row, 1).Value
        .Cells(lig, 3).Select
    End With
End If
End Sub

    Sheets("Commande").Select
    Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Value = Date