Bonjour,
J'ai une erreur 424 à la ligne 9 et je n'arrive pas à identifier l'objet ou l'erreur d'écriture.
Je voudrais effacer la cellule sélectionnée dans le tableau mais aussi la cellule de la colonne précédente.
J'avais pensé carrément effacer la ligne avec selection.Rows(i).Delete mais cela ne marche pas non plus.
Quelqu'un peut me donner un coup de pouce ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pourcentage_faible()
Dim Cloture As Variant, i As Long, Pourcentage As Double, Dcel As Range
 
Set Dcel = Range("N" & Rows.Count).End(xlUp)(1, 2)
Cloture = Range("N5", Dcel)
For i = 2 To UBound(Cloture)
Pourcentage = (Cloture(i, 1) / Cloture(i - 1, 1))
If 0.9975 < Pourcentage And Pourcentage < 1.0025 Then
Cloture(i, 1).ClearContents
'selection.Rows(i).Delete
End If
Next i
End Sub