VBA : Création de fonction de sélection

Function ColTabÀ(ByVal PlageDép As Range, Optional ByVal PlagExam As Range = Nothing) As Range
Dim F As Worksheet, LMax As Long, NbL As Long
On Error GoTo RienTrouvé
Set F = PlageDép.Worksheet: If PlagExam Is Nothing Then Set PlagExam = F.UsedRange
LMax = PlagExam.Find("*", F.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
On Error GoTo 0
NbL = LMax - PlageDép.Row + 1: If NbL < 1 Then GoTo CEstToutVide
Set ColTabÀ = PlageDép.Resize(NbL)
Exit Function
RienTrouvé: Resume CEstToutVide
CEstToutVide: Set ColTabÀ = Nothing
End Function

=ColTabÀ(Feuil1!$F$6)

Function Selectto(ByVal PlageDép As Range) As Range
    Set Selectto = Range(PlageDép, PlageDép.End(xlDown))
End Function

Function SelCell(Cellule As Range, Optional Direction As Integer = 1) As Range
Dim p1 As Range, C As Integer, L As Integer

Set p1 = Cellule.Resize(1, 1)

Select Case Direction
    Case 1  'bas
        L = 1: C = 0
    Case 2  'droite
        L = 0: C = 1
    Case -1 'haut
        L = -1: C = 0
    Case -2 'gauche
        L = 0: C = -1
    Case Else
        MsgBox "Mauvais paramètre"
        Exit Function
End Select

'Boucle jusqu'à la prochaine cellule vide
Do Until IsEmpty(p1)
    Set p1 = p1.Offset(L, C)
Loop
Set p1 = p1.Offset(-L, -C)  'sinon une cellule de trop

Set SelCell = Range(Cellule.Resize(1, 1), p1)
End Function

Function SelCell(ByVal Cellule As Range, Optional Direction As Long = 1) As Range
Dim Direct As XlDirection
Select Case Direction
    Case 1:  Direct = xlDown 'bas
    Case 2:  Direct = xlToRight 'droite
    Case -1: Direct = xlUp 'haut
    Case -2: Direct = xlToLeft 'gauche
    Case Else: MsgBox "Mauvais paramètre": Exit Function
    End Select
Set SelCell = Range(Cellule(1, 1), Cellule(1, 1).End(Direct))
End Function