Erreur de compil

Bonsoir,

Je souhaite associer ces macros mais problème.
Erreur de Compil.
Avez vous une idée ?


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

With Sheets("Feuil1")
Columns("V:V").Select
ActiveWindow.SmallScroll ToRight:=9
Selection.Copy
Columns("J:J").Select
ActiveWindow.SmallScroll ToRight:=-8
ActiveSheet.Paste

With Sheets("Feuil4")


For i = Range("J65536").End(xlUp).Row To 2 Step -1
If Cells(i, 10).Value = "11" Or Cells(i, 10).Value = "22" Or Cells(i, 10).Value = "33" Or Cells(i, 10).Value = "44" Or Cells(i, 10).Value = "55" Or Cells(i, 10).Value = "66" Or Cells(i, 10).Value = "77" Or Cells(i, 10).Value = "88" Or Cells(i, 10).Value = "99" Then
Cells(i, 2).EntireRow.Delete Shift:=xlUp
End If
Next i
Range("X6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0)"
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0)),0,VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0))"
Range("X6").Select
Selection.AutoFill Destination:=Range("X6:X4500")
Range("X6:X4500").Select
End With
End Sub
a+