suppression aprés impression

bonjour le forum



Grace au forum j'ai une macro qui me selectionne la zone d'une feuille cachée et me l'imprime , j'ai rajouté un code pour effacer le contenue d'une zone aprés impression mais cela ne marche pas

mon code

Application.ScreenUpdating = False
With Sheets("ancvexterieur")
.Visible = True
.Unprotect Password:=cedra
.PageSetup.PrintArea = .Range("A6😀" & _
.Range("A200").End(xlUp).Row).Address
.PrintOut
Range("A8😀150").Select
Selection.ClearContents
Range("A8").Select
.Protect Password:=cedra
.Visible = False
End With
End Sub

merci

phil69