Bonjour,
tu peux passer par une variable ou utiliser directement la concaténation des deux cellules
Nom = Sheets('Feuil1').Range('A1').Value & Sheets('Feuil1').Range('B3').Value
If Nom<> '' Then
ThisWorkbook.SaveAs ThisWorkbook.Path & '' & Nom & '.xls'
Else
MsgBox 'Nom inexistant'
End If
concatenation directe
ThisWorkbook.SaveAs ThisWorkbook.Path & '' & Sheets('Feuil1').Range('A1').Value & Sheets('Feuil1').Range('B3').Value & '.xls'
CQFD