Private Sub BtnCommander_Click()
Sheets("Commande").Activate
If Range("A3") = "" Then
Range("A3").Select
vOperationNum = 1
Else
Range("A2").End(xlDown).Select
vOperationNum = Selection.Value + 1
ActiveCell.Offset(1, 0).Range("A1").Select
End If
ActiveCell.Value = vOperationNum
ActiveCell.Offset(0, 1).Value = FrmRecherche.Txt2.Value ' Catégorie
ActiveCell.Offset(0, 2).Value = FrmRecherche.Txt3.Value ' Code
ActiveCell.Offset(0, 3).Value = FrmRecherche.Txt4.Value ' Produit
ActiveCell.Offset(0, 4).Value = FrmRecherche.Txt5.Value ' Prix
ActiveCell.Offset(0, 5).Value = FrmRecherche.Txt6.Value ' Vendu par
ActiveCell.Offset(1, 0).Range("A1").Select
BtnFermer_Click
' Sheets("Produits").Select
End Sub