XL 2010 Macro : supprimer une ligne dont la 1ere cellule est vide MAIS ...

Sub Essai()
  Dim n&: n = Cells(Rows.Count, "K").End(3).Row: If IsEmpty([K1]) Then Exit Sub
  Dim t As Byte, j As Byte, i&: Application.ScreenUpdating = 0
  For i = n To 1 Step -1
    With Cells(i, 1)
      t = 0
      For j = 0 To 9 'pour les colonnes A à J, SAUF F, et PAS K
        If j <> 5 Then If Trim$(.Offset(, j)) = "" Then t = t + 1
      Next j
    End With
    If t = 9 Then Rows(i).Delete
  Next i
End Sub

Sub Nettoyer()
Dim t, n&
t = Timer
Application.ScreenUpdating = False
With Sheets("DATA J").UsedRange
    .Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
    .Columns(2) = "=1/(TRIM(RC[-1])<>"""")"
    .Columns(2) = .Columns(2).Value 'supprime les formules
    .Sort .Columns(2), xlAscending, Header:=xlNo 'tri pour regrouper les valeurs d'erreur et accélérer
    On Error Resume Next 'si aucune SpecialCell
    With .Columns(2).SpecialCells(xlCellTypeConstants, 16)
        n = .Count
        .EntireRow.Delete 'suppression des valeurs d'erreur
    End With
    .Columns(2).EntireColumn.Delete 'supprime la colonne auxiliaire
    With .Parent.UsedRange: End With 'actualise la barre de défilement verticale
End With
Application.ScreenUpdating = True
MsgBox n & " ligne(s) supprimée(s) en " & Format(Timer - t, "0.00 \sec")
End Sub

.Columns(2) = "=1/(TRIM(RC[-1]&RC[1]&RC[2]&RC[3]&RC[4]&RC[6]&RC[7]&RC[8]&RC[9])<>"""")"

Option Explicit

Private Sub Job(k As Byte)
  Dim n&: n = Cells(Rows.Count, "K").End(3).Row: If IsEmpty([K1]) Then Exit Sub
  Dim t As Byte, j As Byte, i&: Application.ScreenUpdating = 0
  For i = n To 1 Step -1
    With Cells(i, 1)
      t = 0
      For j = 0 To 9 'pour les colonnes A à J, SAUF F, et PAS K
        If j <> 5 Then If Trim$(.Offset(, j)) = "" Then t = t + 1
      Next j
    End With
    If k = 1 Then
      If t <> 9 Then Rows(i).Delete
    Else
      If t = 9 Then Rows(i).Delete
    End If
  Next i
End Sub

Sub RapSMP()
  Job 1
End Sub

Sub RapDTL()
  Job 2
End Sub