Améliorer ce code

Bonjour a tous, forum bonjour,



Je souhaiterai svp savoir la différence qu'il y a entre ces deux variables Exemple R% et G&
----------------------------
Le code ci-dessous fonctionne et me permets d'afficher la durée des vidéos en colonne (C) mais le déroulement de l'affichage est un peu trop long.
----------------------------
Serait t'il possible svp d'améliorer le code afin d'accélérer le mouvement si possible.

Je vous remercie d'avance pour votre aide et votre savoir, bonne journée a tous.

Cordialement Raymond

'*** AFFICHE LA (DUREE) DES FILMS s'affiche dans ce Format 01:31:04 en colonne (C)

Public Sub Listing_Affiche_la_Durée()
Dim R%
  Range("C1:C4000").ClearContents                             'Efface colonne C
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.Namespace("H:\")              'Adapter le chemin du D-D

  R% = 1
  For Each strFileName In objFolder.Items                 'Boucle sur les fichiers "avi" du répertoire

    If Right(objFolder.GetDetailsOf(strFileName, 0), 4) = ".avi" Then Cells(R, 3) = objFolder.GetDetailsOf(strFileName, 27)
    Cells(3, 4) = R%                                           'Affiche le nombre de films
    R% = R% + 1
  Next
    Cells(3, 6) = "Terminer"                             'Fin d'affichage (Durée)
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.