Bonjour
Code Module
Sub supprime()
Dim Cel As Range
For Each Cel In Range("B2:B" & [B65000].End(xlUp).Row)
If IsEmpty(Cel) Then
Cel.EntireRow.Delete
End If
Next Cel
End Sub
Code Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
Call supprime
End If
End Sub
Cordialement