Valeurs des cellules, UserForm et boucles

Option Explicit
Public LesNoms() As String, LesValeurs() As Long, LesHeures() As Date
Dim DernHeureFic As Date
Const NomFichier = "Schenck_matin2.csv"

Sub Démarrage()
UserForm2.Show
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
TesterHeureCsv
End Sub

Sub TesterHeureCsv()
Dim HeureFic As Date, Le As Long, Ls As Long, Z() As String, TSpl() As String
If Not UserForm2.Visible Then Unload UserForm2: Exit Sub
HeureFic = FileDateTime(NomFichier)
If HeureFic <> DernHeureFic Then
   Open NomFichier For Input As #1
   Do While Not EOF(1): Le = Le + 1: ReDim Preserve Z(1 To Le): Line Input #1, Z(Le): Loop
   Close #1
   ReDim LesNoms(1 To Le), LesValeurs(1 To Le), LesHeures(1 To Le)
   For Le = 2 To UBound(Z)
      TSpl = Split(Z(Le), ";")
      Ls = Ls + 1
      LesNoms(Ls) = Replace(TSpl(0), """", "")
      LesValeurs(Ls) = CLng(TSpl(2))
      LesHeures(Ls) = CDbl(TSpl(4)) / 1000000: Next Le
   ReDim Preserve LesNoms(1 To Ls), LesValeurs(1 To Ls), LesHeures(1 To Ls)
   UserForm2.Raffraîchir
   DernHeureFic = HeureFic: End If
Application.OnTime Now + 5 / 86400, "TesterHeureCsv"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = 0: If Cancel Then Me.Hide
End Sub

Sub TesterHeureCsv()
Dim HeureFic As Date, Le As Long, Ls As Long, Z() As String, TSpl() As String
If Not UserForm2.Visible Then Unload UserForm2: Exit Sub ' Termine le processus si l'Userform n'est plus visible.
HeureFic = FileDateTime(NomFichier) ' Récupère l'heure de dernière modification du fichier.
If HeureFic <> DernHeureFic Then ' Si cette heure est différente de celle qui avait été notée la dernière fois :
   Open NomFichier For Input As #1 ' Ouverture du fichier, puis son chargement rapide en tableau brut Z
   Do While Not EOF(1): Le = Le + 1: ReDim Preserve Z(1 To Le): Line Input #1, Z(Le): Loop
   Close #1 ' Fermeture du fichier.
   ReDim LesNoms(1 To Le), LesValeurs(1 To Le), LesHeures(1 To Le) ' Redimensionnement des tableaux au maxi possible.
   For Le = 2 To UBound(Z) ' pour chaque ligne d'entrée du tableau Z, brut de chargement :
      TSpl = Split(Z(Le), ";") ' Éclatement selon séparateur ";"
      Ls = Ls + 1 ' Incrément du numéro d'index des tables de sortie
      LesNoms(Ls) = Replace(TSpl(0), """", "") ' Là on en prend simplement le texte débarrassé des doubles guillemets
      LesValeurs(Ls) = CLng(TSpl(2)) ' On en prend le texte converti en nombre entier.
      LesHeures(Ls) = CDbl(TSpl(4)) / 1000000: Next Le ' Ben oui: c'est la date et l'heure en millionnième de jour.
   ReDim Preserve LesNoms(1 To Ls), LesValeurs(1 To Ls), LesHeures(1 To Ls) ' Retaille à l'effectivement garni.
   UserForm2.Raffraîchir ' Demande à l'Uf de prendre acte des nouveaux tableaux.
   DernHeureFic = HeureFic: End If ' Note pour la prochaine fois l'heure de dernière modification du fichier.
Application.OnTime Now + 5 / 86400, "TesterHeureCsv" ' Replanifie le contrôle pour dans 5 secondes (soit 5 / 86400 jours)
End Sub