Sub carac3()
Application.ScreenUpdating = False
Sheets("Caractère").Select
Dim i&, h&, Position As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Value = "" Then GoTo Borne
If Range("A" & i).Value Like "* * * * *" = True Then
GoTo Borne
End If
Range("A" & i).Delete
Borne:
Next i
Application.ScreenUpdating = True
End Sub