Pb de range

Bonjour à tous,

J'ai un fichier avec des tas de données datées.
Je voudrais supprimer celles du mois en cours.
J'ai eu comme idée de filtrer mes données du mois et d'effacer les lignes visibles.
Il y a peut-être (voire même sûrement) plus simple...

Donc voici mon code :

Sub Macro4()

Dim derdate As String
Dim derlig As String

derlig = Sheets("A TOTAL").Cells(Rows.Count, 1).End(xlUp).Row
derlig = "L" & derlig

    Sheets("A TOTAL").Select
    Sheets("A TOTAL").AutoFilter.Sort.SortFields.Add Key:= _
        Range("L1:derlig"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    derdate = Range("L2").Value
    Sheets("A TOTAL").AutoFilter.Sort.SortFields.Clear

'Sheets("A TOTAL").Range("A:A").AutoFilter Field:=11, Operator:= _
    'xlFilterValues, Criteria2:=Array(1, derdate)
'Cells.SpecialCells(xlCellTypeVisible).Select
'Selection.Delete
End Sub

Je récupère la dernière ligne de mon document, et je filtre en intégrant cette ligne dans le range du filtre.
Sauf que mon range ne marche pas alors que si je mets la même ligne manuellement dans le range (dans mon cas L6261), ça marche parfaitement.
Quand je survole le mot derlig, je vois bien que c'est L6261
et le mot range : Range("L1:derlig")= <La méthode 'Range' de l'objet '_Global' a échoué

Si qqun a une idée, n'hésitez pas. Et s'il faut je mettrais mon fichier en pièce jointe
Merci d'avance.