bonjour bruno le forum si j ai bien compris en l enregistrant Option Explicit
Sub Sauve()
If Range('a3').Value <> '' And Range('d4').Value <> '' Then
ActiveWorkbook.SaveAs Filename:='D:\\' & Range('A3').Value & Range('d4').Value & '.xls'
Else
MsgBox 'attention un des 2 cellules vide !!!'
End If
End Sub' salutations