Atteindre la première cellule vide d'une liste de données [ RESOLU]

Sub Macro5()
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Offset(1, 0).EntireRow.Select
End Sub

on error resume next
ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks).Areas(1).item(1).select

Sub XLD_1228117()
Dim SecondEmptyBlock  As Range
Dim FirstFullBlock As Range
Dim StartBlock As Range

On Error Resume Next

Range("B1").Activate

Set SecondEmptyBlock = ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks).Areas(2).Item(1)
Set FirstFullBlock = ActiveCell.EntireColumn.SpecialCells(xlCellTypeConstants, 23).Areas(1).Cells

If Not SecondEmptyBlock Is Nothing Then
    Set StartBlock = SecondEmptyBlock
Else
    Set StartBlock = Range(FirstFullBlock.Item(FirstFullBlock.Cells.Count).Address)
    Set StartBlock = StartBlock.Offset(IIf(StartBlock.Row = Rows.Count, 0, 1))
End If

Range(StartBlock, Cells(Rows.Count, StartBlock.Column)).EntireRow.Select

'Selection.delete  ' pour effacer les lignes
End Sub

Sub e()
With Worksheets(1).Range("a:a")
    Set c = .Find("-----", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
            Set c = .FindNext(c)
            If Not c Is Nothing Then
                MsgBox ("ligne " & c.Row)
            Else
                MsgBox "pas de doublon"
            End If
    Else
        MsgBox "pas de ---- détecté"
    End If
End With
End Sub

Sub Macro1()
    Selection.End(xlDown).Offset(1, -1).Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Clear
End Sub

Sub Macro5()
With Feuil1
  .Rows(.Range("B6").End(xlDown).Row + 2 & ":" & Rows.Count).Delete
End With
End Sub