Bonjour,
essaie ceci.
Par rapport à ton fichier,cette petite macro colorie les cellules E6 à M6 en vert.
Je crée une petite tempo de 1s pour donner un effet de progression.
Sub coloration()
Dim i As Integer
For i = 1 To 9
Cells(6, 4 + i).Interior.ColorIndex = 10
tempo de 1s
Application.Wait Now + TimeValue("00:00:01")
Next i
End Sub
Si tu veux une tempo plus courte utilise Sleep T ou T est ton temps en milliseconde, dans le cas de
ton fichier je mettrai 500..
Par contre il faut effectuer la déclaration suivante pour que sleep fonctionne:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)