Sub CREATION_COPIE_SEMAINE()
Dim BB, CC As String
Dim FSO As Object
BB = Sheets("Réf.Macro").Range("L91").Value
CC = Sheets("Réf.Macro").Range("L92").Value
If Right(BB, 1) = "\" Then
BB = Left(BB, Len(BB) - 1)
End If
If Right(CC, 1) = "\" Then
CC = Left(CC, Len(CC) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(BB) = False Then
MsgBox BB & " doesn't exist"
Exit Sub
End If
FSO.CopyFolder SOURCE:=BB, Destination:=CC
End Sub