Cancel = True 'Empêche le menu contextuel de s'afficher sur click-droit (falcultatif)
Set ObjActive = EnregistrerModifierDetecteur.ActiveControl
EnregistrerModifierDetecteur.TextBox8.Text = ActiveCell 'ici je met la valeur qui se trouve dans la cellule active dans le textbox
EnregistrerModifierDetecteur.TextBox9.Text = ActiveCell