Bonjour
En effet, je comprends que tu n'aies pu adapter.
Les cellules semblent vides, mais contiennent un caractère invisible.
Avec ce Code dans un module
Sub supp()
For i = [M65000].End(xlUp).Row To 1 Step -1
If Len(Cells(i, 13)) = 1 Then Cells(i, 1).EntireRow.Delete
Next i
End Sub
Sur le fichier, j'ai placé un bouton en W1 pour tester
Cordialement