Effacer le contenu des cellules apres enregistrement

Bonjour,
j'aimerais integrer dans ce code un code permettant d'effacer des cellules prédéfinies ( ex : cellule A20:A25 ) après chaque réouverture de fichier.

Merci de votre aide.

Sebelec16.


Option Explicit
Private Sub Workbook_Open()

If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub
Range("R4") = Range("R4") + 1
ActiveWorkbook.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Chemin As String, Numéro_Facture As Integer

If Left(ActiveWorkbook.Name, 4) = "BTFI" Then Exit Sub

Chemin = ActiveWorkbook.Path
Numéro_Facture = Range("R4")
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
Chemin & "\BTFI " & Numéro_Facture & ".xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False

End Sub