incrémenter un N° dans 1 cellule a chaque clic sur 1 bouton macro

bonjour
j'ai sur un fichier une macro qui me permet en cliquant sur un bouton de transformer ma feuille en format PDF

puisque je suis amené a modifier plusieurs fois ce doc j'ai une cellule avec un N° de version de doc. Je change manuellement ce numéro avant de lancer ma macro

j'aimerai que cette cellule soit maintenant protégée et que le fait de lancer ma macro change dans un 1er temps le N° de verion au chiffre supérieur et lance ensuite le reste de la macro

Ce N° de version a modifier donc automatiquement se trouve en cellule AA13.

ci-dessous mon script actuel :

Option Explicit
Sub pdfcrewchange()
Dim Chemin As String, NomFichier As String
NomFichier = "Crew change " & Range("P7").Value & " - V" & Range("AA13") & ".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
Sheets("Crew change").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub


pouvez vous m'aider svp ?

merci
seb