Sub Macro1()
Dim ListeNoms_SUPPR, Rng As Range, NB_LIGNES_SUPPR&
ListeNoms_SUPPR = Application.Transpose(ActiveSheet.Range(ActiveSheet.Cells(2, "G"), ActiveSheet.Cells(Rows.Count, "G").End(xlUp)))
ActiveSheet.Range("$A$1:$A$37").AutoFilter Field:=1, Criteria1:=ListeNoms_SUPPR, Operator:=xlFilterValues
'ou si possible sans surprise
'ActiveSheet.[A1].CurrentRegion.AutoFilter Field:=1, Criteria1:=ListeNoms_SUPPR, Operator:=xlFilterValues
Set Rng = ActiveSheet.AutoFilter.Range
NB_LIGNES_SUPPR = Rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
If NB_LIGNES_SUPPR > 0 Then
Application.DisplayAlerts = False
Rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
End If
Rng.AutoFilter
End Sub