Bonjour

J'ai un petit soucis sur ce script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Del_Special()
Dim  c As Range
With Sheets("Sheet1")
Set dercel = .Cells(.Rows.Count, 2).End(xlUp)
For Each c In .Range("A:A")
With c
If .Value = "MyFirstValue" And .Offset(1, 0) = "MySecondValue" Then
    .Value = ""
    .Offset(-1, 0) = ""
    .Offset(1, 0) = ""
End If
End With
Next
End With
Il met une erreur sur la ligne 8.

Une idée ?

Merci par avance