Procédure Workseet

Bonjour à tous,

Dans une procédure Worksheet suivante je surveille si une saisie à lieu dans la colonne 4

Private Sub Worksheet_Change(ByVal sel As Range)
'Surveille si une saisie sur la quatrième colonne a lieu.
If sel.Column = 4 Then
Dim cel As Range, rien As Boolean
rien = False
For Each cel In sel.Cells
If cel.Value = "" Then
ActiveSheet.Unprotect ("Martin")
cel.Offset(0, 11).Value = ""
ActiveSheet.Protect ("Martin")
rien = True
End If
Next cel
If rien Then Exit Sub
If sel.Count > 1 Then Exit Sub

If sel.Value = False Then sel.Value = "": Exit Sub
'If Application.WorksheetFunction.CountIf(Range("D:D"), sel.Value) > [maxi].Value Then
If Application.WorksheetFunction.CountIf(Range("E:E"), sel.Offset(0, 1).Value) > [maxi].Value Then
MsgBox ("Le nombre autorisé " & vbCr & "est déjà atteint."), vbCritical, "Dupont"
sel.Value = ""
sel.Offset(0, -1).Value = ""
sel.Offset(0, -1).Select
Exit Sub
End If
'Surveille si une cellule de la colonne 14 contient "Numero inconu".
If Cells(sel.Row, 14).Value = "Numéro inconnu..." Then
MsgBox ("Cet auteur n'est pas à adhérent!" & vbCr & "Il ne peut donc pas participer!"), vbCritical, "Dupont"
sel.Value = ""
sel.Offset(0, -1).Value = ""
sel.Offset(0, -1).Select
Else
sel.Offset(1, -1).Select
End If
End If
End Sub
Aujourd'hui je souhaiterais la modifier pour continuer à surveiller la colonne 4 mais seulement à partir de la ligne 25. Je ne sais pas si cela est possible et dans l'état de mes connaissances je n'y arrive pas.
Quelqu'un pourrait il m'aider.
D'avance merci
Mistral