Bonjour

J'essaie d'écrire une fonction qui permet de renvoyer la région contenant toutes les cellules non vides au dessous d'une cellule d'origine, s'ils en existent. L'erreur apparait au moment de l'affectation de la region à la fonction (SelectRange = RangeResult). Voici le code de ma fonction:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function SelectRange(ByVal CellRange As Range) As Range
    If GetLineNumber(CellRange) > 1 Then
        Dim Ws_Result As Worksheet
        Set Ws_Result = CellRange.Worksheet
        Dim RangeResult As Range
        Set RangeResult = Ws_Result.Range(CellRange, CellRange.End(xlDown))
        SelectRange = RangeResult
    Else
        SelectRange = CellRange
    End If
 
End Function
Quelqu'un aura une idée sur l'origine de ce bogue qui me bloque depuis hier?
Merci