Macro nettoyer cellule

Bonjour à tous,

J'ai fait une macro qui me permet d'enregistrer ma feuille en PDF.
Le souci : je souhaite ajouter à cette macro un nettoyage du tableau une fois l'enregistrement fait.
Pour ce qui concerne le nettoyage des cases à cocher, cela fonctionne mais pas les cases textes.

Voici ma macro :
Sub PDF()
Dim Chemin As String, NomFichier As String

NomFichier = Range("B5").Value & " - " & "Analyse de l'opportunité" & ".pdf"
'NomFichier = Range("B5").Value & " - " & "Analyse de l'opportunité" & ".pdf"

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ' Clic sur Ok
Chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With

Worksheets("Analyse de l'opportunité").Range("A1:U48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

With ActiveSheet
For Each CheckBoxes In .CheckBoxes
If CheckBoxes.Value = xlOn Then CheckBoxes.Value = xlOff
.Range("B10,B14,B18,B22,B26,B30,B34").Clear
Next
End With

Merci d'avance pour votre aide !