Sub EnregistrerSous()
Dim x As String
x = ThisWorkbook.Name
'substituer les caractères qui suivent l'espace, jusqu'au . de l'extension par le contenu
'de B13+1
Mid(x, InStr(1, x, " ") + 1, InStr(1, x, ".") - InStr(1, x, " ") - 1) = Range("B13").Value + 1
'Enregistre une copie du fichier sous le nouveau nom
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & x
End Sub