Sub b()
Dim p As Range, c As Range
Dim L As Integer
L = [T65536].End(xlUp).Row [COLOR=green][B]' dernière ligne non vide de la colonne T[/B][/COLOR]
Set p = [T1].Offset(L) [B][COLOR=green]' initialise l'Union avec la cellule vide (L + 1)[/COLOR][/B]
For Each c In Range("T4").Resize(L - 3) [COLOR=green][B]' 1 ère cellule T4 => (L - 3)[/B][/COLOR]
If c.Value = "" Then Set p = Union(p, c) [B][COLOR=green]' Ajoute la cellule si vide[/COLOR][/B]
Next
Intersect([R:AE], p.EntireRow).Delete [B][COLOR=green]' Effacement[/COLOR][/B]
End Sub