Souci à la création d'une macro - fonction recherche et supprimer lignes

Si je ne fais pas erreur, je crois que c'est parce que mes macros pour supprimer les lignes ne mentionnent pas sur quelles feuilles il faut l'exécuter

Si c'est bien ça pourriez vous me dire ce que je dois ajouter pour sélectionner la feuille au début du code? je n'y arrive pas en faisant Sheets("Vue d'ensemble").Activate

Sub supLignesRapport()
  Application.ScreenUpdating = False
  dl = Range("B" & Rows.Count).End(xlUp).Row
  a = Range("I2:I" & dl)
  For i = LBound(a) To UBound(a)
    If a(i, 1) = "chèques attribués" Or a(i, 1) = "Titres-services partiellement attribués" Or a(i, 1) = "0" Or a(i, 1) = "annulé" Or a(i, 1) = "confirmée par le client" Or a(i, 1) = "Partiellement remboursée" Then
      a(i, 1) = "sup"
      Else
      a(i, 1) = 0
    End If
  Next i
  Columns("L:L").Insert Shift:=xlToRight
  [L2].Resize(UBound(a)) = a
  [L2].CurrentRegion.Sort key1:=Range("L2"), order1:=xlAscending, Header:=xlYes
  On Error Resume Next
  Range("L2:L" & dl).SpecialCells(xlCellTypeConstants, 6).EntireRow.Delete
  Columns("L:L").Delete Shift:=xlToLeft
End Sub

celle ci ne fonctionne pas non plus

je vais bien trouver un jour ;)

Sub Supprimerlignesrapportgenval()
'
' supprimer les lignes indésirables dans le rapport de genval
'

'
    Sheets("Rapport Genval").Select
    Columns("I:I").Select

      Application.ScreenUpdating = False
  dl = Range("B" & Rows.Count).End(xlUp).Row
  a = Range("I2:I" & dl)
  For i = LBound(a) To UBound(a)
    If a(i, 1) = "chèques attribués" Or a(i, 1) = "Titres-services partiellement attribués" Or a(i, 1) = "0" Or a(i, 1) = "annulé" Or a(i, 1) = "confirmée par le client" Or a(i, 1) = "Partiellement remboursée" Then
      a(i, 1) = "sup"
      Else
      a(i, 1) = 0
    End If
  Next i
End Sub

J'ai fini par trouver, merci pour votre aide