Microsoft 365 Fermeture Userform + Transpo information

[Sonia2020]

Bonjour

J'ai cherché sue environs 10 discussions traitant d'un problème plus ou moins similaire mais je ne trouve pas ma réponse.
Depuis que je suis passé de XL2013 à Microsoft365, certains de mes macros ne bugg.

1er problème : Quand je clique sur le bouton Sortie, une autre interface s'ouvre. Je scanne ma référence (sur checkbox1) et il y a un 1 qui apparaît (sur checkbox2) (pour dire que je sors un produit de mon stock), a chaque bip, il m'incrémente de 1, soit 1 bip du code barre = 1 sortie). Tout fonctionne à merveille. Sauf quand je clique sur le bouton "Retour", il me soustrait une quantité de 1 sur la référence présente (checkbox1) alors qu'il ne devrait pas. J'aimerai quand j'appuie sur le bouton retour, il me sort aucun stock.


2ème problème :
Le code :

ref.Offset(0, 4) = ref.Offset(0, 4) - 1
With Sheets("Historique de conso")
If TextBox1 <> "" Then
Lig = .Cells(.UsedRange.Columns(1).Rows.Count + 1, 1).Row
'MsgBox lig
.Cells(Lig, 1) = ref.Offset(0, -2)
.Cells(Lig, 2) = ref.Offset(0, -1)
.Cells(Lig, 3) = Me.TextBox1.Value
.Cells(Lig, 4) = Date
.Cells(Lig, 5) = 1
End If

Il ne me transpose pas les informations demandées sur mon onglet Historique de conso

Si quelqu'un a une idée de cette faille, ce serait géniale.
Je vous mets en PJ le fichier pour que vous puissiez voir la macro en userform SortieMat.

Sonia2020