Sub Creation_Rep_Mois()
Dim TB, S As String, i As Long, Chemin As String, Rep_Annee As String, Rep_Mois As String
Rep_Annee = Sheets("BULLETINS EDITES").Cells(2, 1)
'Rep_Mois = "JANVIER"
Rep_Mois = Sheets("BULLETINS EDITES").Cells(3, 3)
'Créer un répertoire et sous-Répertoire
Chemin = "Z:\Bulletins de salaires\" & Rep_Annee & "\" & Rep_Mois
'TB = Split(Chemin, "\")
If Dir(Chemin, vbDirectory) = "" Then
For i = 3 To 14
Rep_Mois = Sheets("BULLETINS EDITES").Cells(i, 3)
'UCase(Format(Date, "mmmm")) = Rep_Mois
If Dir(Chemin, vbDirectory) = "" Then
MkDir Chemin
End If
Next
End If
End Sub