Merci pour ta réponse,
Malheureusement j'ai encore un souci, et ça plante ici (->):
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Dim Chemin As String
Dim rng As Range
Dim rng2 As Range
'
Set rng = Worksheets('1. Subsidiary').Range('B5')
->Set rng2 = 'rng_' & Format(Range('A1').Value, 'yyyymmdd')
If ThisWorkbook.Name = rng2.Value Then Exit Sub
Chemin = ThisWorkbook.Path & '\\'
Application.DisplayAlerts = False
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:=Chemin & rng2.Value
Application.DisplayAlerts = True
End Sub
Merci pour votre aide
@+