Effacer des lignes avec du VBA

Bonjour à tous,

Je voudrais pouvoir supprimer toutes les lignes depuis la première ligne ou la cellule A est vide jusqu'à la dernière. Pour cela je calcule le Nb de lignes utilisées que je stock dans la variable "Derlig". Mais je bloque sur la façon d'utiliser cette variable.

Si je teste :

    Rows("10:30").Select
    Selection.Delete Shift:=xlUp

Je supprime bien les lignes de 10 à 30

Par contre je me plante dans la manière d'utiliser la variable
Ci-dessous ce que j'ai codé :

    Derlig = Nb_LigneBdx	` Appel fonction
    Rows("Derlig:65536").Select
    Selection.Delete Shift:=xlUp
________________________________________________
Function Nb_LigneBdx() As Integer
    Dim I As Integer
    For I = 1 To 250
        If Sheets("Feuil1").Range("A" & I).Value = "" Then Exit For      ' Test la première cellule vide de la colonne A.
    Next I
    Nb_LigneBdx = I ' - 1
End Function 

J'ai une erreur d'exécution 13. Incompatibilité de type sur la ligne :
Rows("Derlig:65536").Select
Y a-t-il une âme charitable pour venir à mon secours.
D'avance merci
Mistral

PS: Tout mon code est là je fais un test
avant de modifier un classeur.