VBA suppression
Bonsoir tout le monde, j'ai une VBA qui supprime 4 chiffre que je lui indique et le faire à la main et long car j'ai beaucoup de chiffre à entrer, y-a t-il une VBA qui : en lui entrant grandes listes de 4 chiffres exemples : 4-5-6-7
4-35-100-5
pourrait lui même supprimer c'est suite dans mon tableau excel ?
voici la VBA de suppression :
Dim i As Long, dl As Long
Dim a As Long, b As Long, c As Long, d As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = dl To 2 Step -1
a = Application.WorksheetFunction.CountIf(.Range(Cells(i, 1), Cells(i, 5)), 2)
b = Application.WorksheetFunction.CountIf(.Range(Cells(i, 1), Cells(i, 5)), 3)
c = Application.WorksheetFunction.CountIf(.Range(Cells(i, 1), Cells(i, 5)), 1)
d = Application.WorksheetFunction.CountIf(.Range(Cells(i, 1), Cells(i, 5)), 4)
If a = 1 And b = 1 And c = 1 And d = 1 Then Rows(i).Delete
Next i
End with
Si vous n'avez pas compris je peux vous le réexpliquer
merci d'avance.