Private Sub Btn_sauvegarde_Click()
'... remettre code original
Else
Feuil2.Cells(Rows.Count, 2).End(3)(2).Resize(, 7) = _
Array(Format(Now), Cbx_fournisseur, Txt_numfacture, Cbx_etat, Cbx_article, CCur(Txt_prixp), Txt_quantité, Cbx_unité)
'******************************
'********Vider le formulaire pour un prochain saisie
'*******************************
... remettre code original
End If
End Sub