Progressbar avec copie des dossiers

' Inscription dans la Listbox
For Each f2 In f1.Files
' colonne[B]noms fichiers
Cells(x - 1, 2).Value = f2.Name
WinBlue.TbFiles.Value = "Fichier: " & Cells(x - 1, 2).Value
x = x + 1
On Error Resume Next
WinBlue.Ecran.Selected(x - 1) = True

t = Timer + 0.2: Do Until Timer > t: DoEvents: Loop
WinBlue.Progressbar.Visible = True
' on divises le nombre de fichiers par la largeur de la barre
' ici: 1000 / 262 = 3.816... .
' on redivises 1000 par 3.816 et on augmente (ici 3.84) pour ajuster la barre.
WinBlue.Progressbar.Width = x / 3.84
Next f2

WinBlue.Ecran.Selected(x - 1) = True

Sub Install()
  Dim FSO As Scripting.FileSystemObject
  Dim DosSce As Scripting.Folder
  Dim F1 As Scripting.File
  Dim Source As String, Destination As String
  Dim X As Integer
  
  ' Instancier le File System Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  ' Définir le chemin source
  Source = ThisWorkbook.Path & "\WinBlueSAV"
  ' Instancier le dossier source
  Set DosSce = FSO.GetFolder(ThisWorkbook.Path & "\WinBlue")
  ' Définir la destination
  Destination = Chemin & "\"
  ' Pour chaque fichier du dossier source
  For Each F1 In DosSce.Files
    X = X + 1
    FSO.CopyFile F1, Destination
    WinBlue.Progressbar.Width = X / 3.84
  Next F1
  Application.Cursor = xlNorthwestArrow
End Sub