Bonjour a tous

J'ai réussi a mettre de coté tous un ensemble de problème après de nombreux essais.

Par contre, je n'arrive pas a mettre en place une suppression sous condition multiple sans avoir recour a de nombreuses boucles

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sheets(i).Select
Dim derl As Long
derl = Cells(65536, 5).End(xlUp).Row
 
For f = 1 To derl
    If Cells(f, 8).Value = "." Or Cells(f, 9).Value = "0" Or Cells(f, 10).Value = "0" Then
    Rows(f).Select
    Selection.Delete Shift:=xlUp
    End If
    Next f
 
End Sub
Il y a en réalté plus d'une centaine de conditions.

Merci