VBA > Exemple gestion compte

Sub coche()
    Application.ScreenUpdating = False
    Range("I" & ActiveCell.Row).Select
    Range("F1").Select
End Sub

Sub saisie()
    UserFormAjout.Show
End Sub

Sub supprime()
    If ActiveCell.Column > 2 And ActiveCell.Column < 11 And ActiveCell.Row > 8 Then
        UserForm2.Show
    Else: MsgBox ("Aucune ligne n'est sélectionnée !")
    End If
End Sub
Sub modifie()
    If ActiveCell.Column > 2 And ActiveCell.Column < 11 And ActiveCell.Row > 8 Then
        ' Mémorisation des valeurs
       LgSelect = ActiveCell.Row
        MaDate = Cells(LgSelect, 3).Value
        Mode = Cells(LgSelect, 4).Value
        NoCheque = Cells(LgSelect, 5).Value
        tiers = Cells(LgSelect, 6).Value
        Groupe = Cells(LgSelect, 7).Value
        Categorie = Cells(LgSelect, 8).Value
        Debit = Cells(LgSelect, 10).Value
        Credit = Cells(LgSelect, 11).Value
        UserFormModif.Show
    Else
        MsgBox ("Aucune ligne n'est sélectionnée !")
    End If
End Sub
Sub Prelevements()
    UserFormPt2.Show

End Sub

Sub Macro5()
    UserFormPt.Show
End Sub
Sub tiers()
    UserFormTiers.Show
End Sub