complément de code

Bonjour le forum

j'utilise le code suivant pour effacer une série de cellules si la 4ème est effacée
ça fonctionne très bien
je voudrais compléter ce code en faisant une copie de la cellule 8 vers la cellule 12 avant l'effacement

voici le code

If Target.Column <> 4 Or Target.Count > 1 Or (Target.Row < 3 Or Target.Row > 62) Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
If MsgBox("Confirmer la suppression?", vbYesNo + vbQuestion, "SUPPRIMER") = vbYes Then
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If



merci de votre aide

Kinel