Dim i As Byte, chemin As String
On Error Resume Next
For i = 65 To 90 'code des lettres A à Z
Err = 0
chemin = Chr(i) & ":\\serveur\toto1\toto2\Nouveau dossier\"
ThisWorkbook.SaveAs chemin & ThisWorkbook.Name
If Err = 0 Then Exit For
Next
On Error GoTo 0