Hello I20100
Merci beaucoup pour ton code,
J'ai l'impression que cela fonctionne bien
Je l'ai adapté pour fitter sur ma DB
Est ce que tu pourrais me confirmer que ma selection de ma plage de tri permettra bien d'integrer des col supplementaires avec cette méthode ? (tant que la cellule n'est pas vide)
Sub SUPPRIMER()
Dim i As Integer, rw1 As Long, rw2 As Long, m As String, v
Sheets("DATA").Select
Range("A7:" & Cells.SpecialCells(xlCellTypeLastCell).Address).Sort key1:=Range("B7"), order1:=xlAscending
v = Array("Canada DF", "Canada ML", "USA ML (BPI)", "MagH Canada")
For i = LBound(v) To UBound(v)
m = v(i)
If Not IsError(Application.Match(m, Range("B:B"), 0)) Then
rw1 = Application.Match(m, Range("B:B"), 0)
rw2 = Application.Match(m, Range("B:B"))
Rows(rw1 & ":" & rw2).EntireRow.Delete
End If
Next i
End Sub
Merci beaucoup en tout cas!
Tres bonne journée