Suppréssion d'enrégistrement

Sub SuppressionLigne()

Dim LignFin As Integer
Dim NumClient As Integer

Application.ScreenUpdating = False

LignFin = Range("A65536").End(xlUp).Row

For n = 2 To Range("A65536").End(xlUp).Row
    If Not Range("H" & n) = "" Then
        NumClient = Range("A" & n)
        For m = 2 To Range("A65536").End(xlUp).Row
            If Range("A" & m) = NumClient Then
                Rows(m & ":" & m).Select
                Selection.Delete Shift:=xlUp
                m = m - 1
            End If
        Next
        n = 2
    End If
Next

Application.ScreenUpdating = True

End Sub