Bonjour,
tes cellules A77,B77,C77 et D77 et plus haut, ne sont jamais vides puisqu'il y a une formule dedans...
donc Cells(i, 3).Text = "" Then est toujours faux
tu peux essayer ceci=
Sub LigneMoins()
For R = 78 To 8 Step -1
If Len(Cells(R, 3)) = 1 Then Rows(R).Delete
Next R
ActiveSheet.UsedRange
End Sub
P.