message erreur "debug 1004" ???

Sub Traitement_pmo()
Dim lastLig&
Dim R As Range
Dim var
Dim A$
Dim i&
'--- On travaille sur une copie de la feuille ---
ActiveSheet.Copy after:=Sheets(Sheets.Count)
'--- Supprime la colonne A ---
ActiveSheet.Columns(1).Delete
'--- Supprime A1 ---
[a1].Delete Shift:=xlToLeft
'--- Suppression de la virgule et des 3 derniers zeros colonne H ---
lastLig& = [a65536].End(xlUp).Row
Set R = Range("h2:h" & lastLig& & "")
R.Replace What:=",", Replacement:=Space(1)
var = R
On Error Resume Next
For i& = 1 To R.Rows.Count
  A$ = Trim(var(i&, 1))
  If Right(A$, 3) = "000" Then
    var(i&, 1) = CLng(Trim(Mid(A$, 1, Len(A$) - 3)))
  End If
Next i&
On Error GoTo 0
R = var
'--- Supprimer les lignes dont le mot est "OPEL" en colonne B ---
For i& = lastLig& To 2 Step -1
  If UCase(Trim(Range("b" & i& & ""))) = "OPEL" Then
    Rows(i&).Delete
  End If
Next i&
End Sub