Problème avec la boucle

J'ai un problème au niveau de Range(Cells(i, "K"), Cells(b, g) = ""

Dim b,g As Long

    b = Cells(Rows.Count, "B").End(xlUp).Row
    g = Cells(6, Columns.Count).End(xlToLeft).Column
    For i = 156 To b
'Si les cellules de la colonne J ne comportent pas une erreur
    If Not IsError(Cells(i, "J")) = True Then
    If Cells(i, "K").Value <= 0 And Cells(i, "J").Value <= 0 And Range(Cells(i, "K"), Cells(b, g) = "" Then Rows(i).EntireRow.Delete
    End If
    Next i

Bonjour également.

Quel problème ? y a-il un message d'erreur ?

Mais a priori il manquerait bien une parenthèse !

Range[s=co-00f][/s]Cells(i, "K"), Cells(b, g) _ = ""

Même avec la parenthèse à la fin, elle donne une erreur "13"

Bonjour,

Allez !... Soyons fous…

Public Sub Delete_rows()
Dim lastRow As Long, lastCol As Long, lRow As Long
    lastRow = Cells(Rows.Count, 2).End(xlUp).Row
    lastCol = Cells(6, Columns.Count).End(xlToLeft).Column
    For lRow = lastRow To 156 Step -1
        If IsNumeric(Cells(lRow, 10) And Cells(lRow, 10)) <= 0 Then
            If Cells(lRow, 11).Value <= 0 And WorksheetFunction.CountA(Cells(lRow, 12).Resize(, lastCol - 11)) = 0 _
               Then Rows(lRow).EntireRow.Delete
        End If
    Next lRow
End Sub

Une de moins quand même !

Cells(i, "K") et Cells(i, "J") contiennent bien un numérique ?

EDIT : Bonjour Jean-Eric

Elles sont au format monétaire

Le format des cellules peut-être monétaire et le contenu de la cellule peut être du texte !

Ce qui expliquerait l'erreur.