If Sheets("Accueil").Range("B9:J9") = "Assistance Clients" And y <> "" Then
Do
y = Dir("T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
m = m + 1
Loop While y <> ""
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ASSISTANCE CLIENTS" & Format(Date, "yymmdd") & " - " & x & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If
If Sheets("Accueil").Range("B9") = "Acquisition & développement" And z <> "" Then
Do
z = Dir("T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m + 1 & ".xls")
m = m + 1
Loop While y <> ""
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & " - " & m & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="T:\PROPALE\ACQ & DEV" & Format(Date, "yymmdd") & " - " & x & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="PROPALE", ReadOnlyRecommended:=True, CreateBackup:=False
End If