Suppression de lignes suivant un contenu

Sub suppress()

    FinListeToSup = Sheets("clients a supprimer").Range("A65536").End(xlUp).Row
    Sheets("liste des clients").Activate
    FinListeATraiter = Sheets("liste des clients").Range("A65536").End(xlUp).Row

For i = 1 To FinListeToSup
    ele = Sheets("clients a supprimer").Range("A" & i)
        
    For j = FinListeATraiter To 1 Step -1
        If Sheets("liste des clients").Range("A" & j) = ele Then Sheets("liste des clients").Range("A" & j).EntireRow.Delete
    Next j
    FinListeATraiter = Sheets("liste des clients").Range("A65536").End(xlUp).Row
Next i
    
 
End Sub

Sub SupprimerClients()
Dim F1 As Worksheet, F2 As Worksheet, Asup As Range, t, i&, n&
Set F1 = Feuil1: Set F2 = Feuil2 'CodeNames des feuilles
Set Asup = F1.Range("A1", F1.Range("A" & F1.Rows.Count).End(xlUp))
t = F2.Range("A1", F2.Range("A" & F2.Rows.Count).End(xlUp)(2))
For i = 1 To UBound(t)
  If Application.CountIf(Asup, t(i, 1)) = 0 And t(i, 1) <> "" Then
    n = n + 1
    t(n, 1) = t(i, 1)
  End If
Next
'--restitution du tableau épuré en C1---
If n Then F2.[C1].Resize(n) = t
F2.[C1].Offset(n).Resize(F2.Rows.Count - n) = ""
End Sub

Sub a()
Dim i As Byte, x
For i = 1 To 5 'Step 1
  x = i
Next
MsgBox i
End Sub

Sub a_bis()
Dim i As Byte, x
For i = 1 To 5 Step 2
  x = i
Next
MsgBox i
End Sub

Sub b()
Dim i As Integer, x
For i = 5 To 1 Step -1
  x = i
Next
MsgBox i
End Sub

Sub b_bis()
Dim i As Integer, x
For i = 5 To 1 Step -2
  x = i
Next
MsgBox i
End Sub

Sub es()
Dim t(), t1(), t2(), i As Long, x As Long, s As Long, m As Object
Set m = CreateObject("Scripting.Dictionary")
With ActiveWorkbook.Sheets("NomFeuille1") 'nom à adapter
  t2 = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
End With
With ActiveWorkbook.Sheets("NomFeuille2") 'nom à adapter
  t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
  For i = 1 To UBound(t2)
  If Not m.Exists(t2(i, 1)) Then m.Add t2(i, 1), t2(i, 1)
  Next i
  ReDim t1(1 To UBound(t), 1 To 1)
  x = 1
  For i = 1 To UBound(t)
  If Not m.Exists(t(i, 1)) Then t1(x, 1) = t(i, 1): x = x + 1
  Next i
  .[b1].Resize(UBound(t1), 1) = t1
End With
Erase t, t1, t2: Set m = Nothing
End Sub

Sub es()
Dim t(), t1(), t2(), i As Long, x As Long, s As Long, m As Object
Set m = CreateObject("Scripting.Dictionary")
With ActiveWorkbook.Sheets(1) '1ère feuille du classeur actif
  t2 = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
End With
With ActiveWorkbook.Sheets(2)  '2ème feuille du classeur actif
  t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
  For i = 1 To UBound(t2)
  If Not m.Exists(t2(i, 1)) Then m.Add t2(i, 1), t2(i, 1)
  Next i
  ReDim t1(1 To UBound(t), 1 To 1)
  x = 1
  For i = 1 To UBound(t)
  If Not m.Exists(t(i, 1)) Then t1(x, 1) = t(i, 1): x = x + 1
  Next i
  .[b1].Resize(UBound(t1), 1) = t1
End With
Erase t, t1, t2: Set m = Nothing
End Sub