Excel VBA SaveA sem prompt para substituir

Application.DisplayAlerts = False
Application.DisplayAlerts = True
VasteMonde