Sub suppr()
Dim derlig&, PlageSuppr As Range, debut
debut = Timer
Application.ScreenUpdating = False
If Range("g3") = "AUXIL" Then Columns("g:g").Delete
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
derlig = Range("A" & Rows.Count).End(xlUp).Row
If derlig <= 3 Then Exit Sub
Range("G4:G" & derlig).Value = Range("G4:G" & derlig).Value
Columns("g:g").Insert: Range("g3") = "AUXIL"
With Range("a4:h" & derlig)
.Columns(7).FormulaR1C1 = "=IF(RC[1]=0,"""",ROW())"
.Columns(7).Value = .Columns(7).Value
.Sort key1:=.Cells(1, 7), order1:=xlAscending, Header:=xlNo
On Error Resume Next
Intersect(.Columns(7).SpecialCells(xlCellTypeBlanks).EntireRow, .Rows).Clear
End With
If Range("g3") = "AUXIL" Then Columns("g:g").Delete
Application.ScreenUpdating = True
MsgBox "durée = " & Format(Timer - debut, "0.00 sec.")
End Sub