Private Sub CommandButtonValider_Click()
Application.ScreenUpdating = False
'Désactiver les macro, notamment la worksheet_change pour les fausses checkbox en colonne I :
Application.EnableEvents = False
''Pour chronométrer la procédure
' Dim t As Date
' t = Time
'Valeurs frmPrelevements
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell = Format(Me.datesaisie.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1) = ComboBoxMode.Value
ActiveCell.Offset(0, 2) = TextBoxCheque.Value
ActiveCell.Offset(0, 3) = ComboBoxTiers.Value
ActiveCell.Offset(0, 4) = ComboBoxGroupe.Value
ActiveCell.Offset(0, 5) = ComboBoxCateg.Value
ActiveCell.Offset(0, 10) = ComboBoxGroupe.Value & " " & Application.VLookup(CInt(ComboBoxGroupe.Value), Feuil5.Range("A:B"), 2)
'Fausse checkbox
ActiveCell.Offset(0, 6).Value = "o"
...
...
End Sub