Corrigé 18.2 Créer, gérer et supprimer les dossiers et les sous-dossiers

Sub CréerMonde() 
   Dim fso As Scripting.FileSystemObject 
   Dim drvUnité As Scripting.Drive 
   Dim strRacine As String 
   Dim intNbContinents As Integer 
   Dim intNoContinent As Integer 
   Dim intNoPays As Integer 
   Dim intNbPays As Integer 
   Dim rngPays As Range 
   Dim strContinent As String 
   Dim strPays As String 
 
   Set fso = New Scripting.FileSystemObject 
   Set rngPays...