Supression de lignes automatique

Sub effaceLignes()
NbBase = Sheets("Base Elève").[C2000].End(xlUp).Row
NbEleves = Sheets("Base Elève").[D2000].End(xlUp).Row
Sheets("Base Elève").Range("A" & NbEleves + 1 & ":A" & NbBase).EntireRow.Delete
End Sub

Sub effaceLignes()
' Feuille Base Elève
NbBase = Sheets("Base Elève").[C2000].End(xlUp).Row 'au départ de la cellule C2000 et en "remontant", repérer la dernière cellule non vide
NbEleves = Sheets("Base Elève").[D2000].End(xlUp).Row 'idem en colonne D
Sheets("Base Elève").Range("A" & NbEleves + 1 & ":A" & NbBase).EntireRow.Delete 'supprimer les lignes entières de la plage A6:A41 (par exemple)

'Feuille Absences _
    1 ici, puisque les autres noms ont été supprimés dans la 1ère feuille _
    les cellules affichent des messages d'erreur
For Each c In Sheets("Absences 1").Range("A4:A33")
    If c.Text = "#REF!" Then
        aSupprimer = c.Row 'repérer la première cellule contenant valeur d'erreur
        Exit For
    End If
Next c
Sheets("Absences 1").Range("A" & aSupprimer & ":A33").EntireRow.Delete

'Feuille T1 même principe que plus haut
For Each c In Sheets("1T").Range("A7:A37")
    If c.Text = "#REF!" Then
        aSupprimer = c.Row
        Exit For
    End If
Next c
Sheets("1T").Range("A" & aSupprimer & ":A37").EntireRow.Delete

End Sub