Si colonne A vide entre ligne 1 et 62 alors

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [A1:A62]) Is Nothing Then Exit Sub
  If WorksheetFunction.CountA([A1:A62]) = 0 Then
    Application.ScreenUpdating = False
    [1:62].Clear
    Application.ScreenUpdating = True
  End If
End Sub

Sub SupprimesLesLignesQuandAestVide()
Dim F As Worksheet
Dim R As Range
Dim T As Variant
Dim L As Byte

  Set F = ActiveSheet 'En attendant de connaitre la bonne feuille
  T = Application.Transpose(F.Range("A1:A62").Value)
  For L = LBound(T) To UBound(T)
    If IsEmpty(T(L)) Then
      If R Is Nothing Then
        Set R = F.Rows(L)
      Else
        Set R = Union(R, F.Rows(L))
      End If
    End If
  Next L
  If Not R Is Nothing Then
    R.Select
    If MsgBox("Supprimer les lignes sélectionnées ?", vbYesNo + vbDefaultButton2) = vbYes Then R.Delete
  End If
  F.Range("A1").Activate
End Sub

Sub virerligvide()
Dim Derlig As Long

Derlig = Columns("A").Find("*", , , , , xlPrevious).Row

If Application.CountIf(Range("A1:A" & Derlig), "") > 0 Then
     Range("A1:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
End Sub