Private Sub CommandButton1_Click() ' AJOUTER MATOS
Dim ligne As Integer
Dim px
With Sheets("Matériel")
ligne = .Range("B65536").End(xlUp).Row + 1
.Range("B" & ligne).Value = Produit.Value
.Range("C" & ligne).Value = Fourniss.Value
px = Replace(PrixAchat, ".", ",")
px = Replace(px, "€", "")
.Range("D" & ligne).Value = CDbl(px)
.Range("E" & ligne).Value = Marge.Value
px = Replace(MargeEuro, ".", ",")
px = Replace(px, "€", "")
.Range("F" & ligne).Value = CDbl(px)
px = Replace(VenteClient, ".", ",")
px = Replace(px, "€", "")
.Range("G" & ligne).Value = CDbl(px)
.Range("H" & ligne).Value = MSN.Value
.Range("a2:I65536").Sort .Range("B2"), xlAscending
End With
Unload Me
End Sub