2 PB en VBA

Bonjour à tous,

J'ai la macro suivante:


Sub Limite_enveloppe()
'
' Limite_enveloppe Macro

Application.ScreenUpdating = False

If Sheets("Tri ID enveloppes").Range("I25").Value > 1200000 Or Sheets("Tri ID enveloppes").Range("J25").Value > 1200000 Then
MsgBox "La valeur nominale ou effective de l'enveloppe renseignée est supèrieure à CHF 1'200'000.-", vbOKOnly + vbCritical, "Enveloppe non conforme"
Rep = MsgBox("Souhaitez-vous splitter l'enveloppe?", vbYesNo + vbQuestion, "Split de l'enveloppe?")
If Rep = vbYes Then
Sheets("Base de données").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base).Select
End If
Ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base).Select
Selection.ClearContents
Sheets("Formulaire").Select
Range("K11").Select
MsgBox "Les données précédemment saisies ont été supprimées. Merci de saisir les nouvelles données.", vbOKOnly + vbInformation, "Info"
Else
MsgBox "Vos données sont conservées. Merci de vérifier qu'il s'agit bien d'une cédule/obligation hypothécaire.", vbOKOnly + vbInformation, "Info"
End If

End If


Application.ScreenUpdating = True


End Sub



Mon premier PB est le suivant: Suite à la MsgBox: "Souhaitez-vous splitter l'enveloppe?", j'aimerai que la macro détecte la dernière ligne de ma base de donnée et supprime l'équivalent des Colonne A:N uniquement. Actuellement la macro ne me supprime que la dernière valeur de la colonne A uniquement. savez-vous comment faire pour prolonger la suppression jusqu'à la colonne T?

Mon deuxième PB est le suivant: Cette macro fonctionne sur la base d'un calcul de la cellule I25 ou J25. Actuellement j'exécute la macro manuellement mais j'aimerai qu'à chaque fois que la valeur en cellule I25 ou J25 change que celle ci déclenche automatiquement la vérification (macro).


D'avance merci pour vos retours.

cordialement.