mon fichier possède plusieurs milliers de lignes, sur certaines une erreur est présente: la ligne est vide sauf en AH.
j'aimerais supprimer les lignes avec un 1 dans AH et vide à côté. c'est à dire faire un test du style:
si la somme des cellules sur la ligne égale 1 alors la supprimer
Sub test()
With Sheets("Feuil1")
For i = .Cells(Rows.Count, 34).End(xlUp).Row To 2 Step -1
If Evaluate("SUM(A" & i & ":AG" & i & ")") = 0 Then .Rows(i).Delete
Next i
End With
End Sub