Debut & fin de plage pour une colonne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim LD As Long 'déclare la variable LD (Ligne du Début)
Dim LF As Long 'déclare la variable LF (Ligne de Fin)

If Target.Column <> 1 Then Exit Sub 'si le boucle-clic a lieu ailleurs qu'en colonne A, sort de la procédure
If Target.Value = "" Then Exit Sub 'si le double-clic a lieur dans une celluel vide, sort de la procédure
Cancel = True 'annule le mode [édition] lié au double-clic
TV = Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs
    'si la donnée ligne I colonne 1 de TV est égale à la valeur de la cellule double-cliquée, définit la ligne de debut LD et sort de la boucle
    If TV(I, 1) = Target.Value Then LD = I: Exit For
Next I 'prochaine ligne de la boucle
For I = LD To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la ligne LD)
    If I = UBound(TV, 1) Then LF = I 'si I est la derniere ligne du tableau des valeur, définit la ligne  de fin LF
    'si la donnée ligne I colonne 1 de TV est différente de la valeur de la cellule double-cliquée, définit la ligne de fin LF (I-1) et sort de la boucle
    If TV(I, 1) <> Target.Value Then LF = I - 1: Exit For
Next I 'prochaine ligne de la boucle
MsgBox LD & " / " & LF 'message qui affiche la lgne de début et la ligne de fin
End Sub

Public Function premli(plage As Range, s As String) As Long
Dim obj As Object
premli = 0
Set obj = plage.Find(s, , , xlWhole, , xlNext)
If Not obj Is Nothing Then premli = obj.Row
End Function

Public Function dernli(plage As Range, s As String) As Long
Dim obj As Object
dernli = 0
Set obj = plage.Find(s, , , xlWhole, , xlPrevious)
If Not obj Is Nothing Then dernli = obj.Row
End Function