suppression cellules

Bonjour Xldnaute

Petit souci dans une macro de suppression de cellule je ne sais pour quelle raison excel ne veux pas m'effectuer la suppresion de cellule. si quelqu'un a un idée je laisse le code ce dessou . le code consiste a faire des c/c et une suppresion rien de complexe.
Merci

Sub ABC()
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
Sheets("feuil1").Activate
'
Worksheets("feuil1").Range("C3:J3").Copy _
Destination:=Worksheets("feuil1").Range("C2:J2")
'
Worksheets("feuil1").Range("B4:B4").Copy _
Destination:=Worksheets("feuil1").Range("B3")
'
'
Cells(4, "B").Delete
'
Worksheets("feuil1").Range("B3:B3").Copy _
Destination:=Worksheets("feuil1").Range("C185")
'
End Sub