decaler tableau si lignes précédant sont vide

Option Explicit
Const Feuilles = "Feuil1;Feuil2;Feuil3;tableau type"

Sub SupLignesVides()
Dim F, xrg As Range
  Application.ScreenUpdating = False
  On Error Resume Next
  For Each F In Split(Feuilles, ";")
    Set xrg = Nothing
    With Sheets(F)
      Set xrg = .Columns(1).Find("données", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
      If Not xrg Is Nothing Then If Not xrg.Row = 1 Then .Rows("1:" & xrg.Row - 1).Delete
    End With
  Next F
  MsgBox "Terminé !", vbInformation
End Sub

Sub SupLignesVides()
Dim F As Worksheet, xrg1 As Range, xrg2 As Range
  Application.ScreenUpdating = False
  For Each F In ThisWorkbook.Worksheets
    Set xrg1 = Nothing: Set xrg2 = Nothing
    With F
      Set xrg1 = .Columns(1).Find("données", after:=.Cells(.Rows.Count, "a"), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
      Set xrg2 = .Columns(1).Find("*", after:=.Cells(.Rows.Count, "a"), LookIn:=xlValues, lookat:=xlPart)
      If Not xrg1 Is Nothing Then If Not xrg2.Row < xrg1.Row Then If xrg1.Row > 1 Then .Rows("1:" & xrg1.Row - 1).Delete
    End With
  Next F
  MsgBox "Terminé !", vbInformation
End Sub