Sub Test()
Dim DerL&, ClientName As String
Feuil1.Select
DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
ClientName = Feuil1.Range("G1")
Feuil1.Range("$D$1:$D" & DerL).AutoFilter Field:=1, Criteria1:="<>" & ClientName
Feuil1.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Feuil1.ShowAllData
End Sub