VBA XLS Boucle avec instruction de mise àjour

Bonjour,



je suis débutant dans l'utilisation des boucles.

Voici mon souci: je lance une boucle pour attribuer une valeur entre 115 et 118 et je copie colle la valeur de la cellule trouvée sur une deuxième qui me permet de mettre à jour un tableau de gestion.

Problème la première boucle s'applique bien mais il attend la dernière valeur pour exécuter l'instruction de mise à jour (Application.SendKeys "%yFr", True).

voici le code:


Application.DisplayAlerts = True
Application.ScreenUpdating = True
Dim x
x = 115
Do While x <= 118
x = x + 1

Cela fonctionne bien: applique la boucle sur la cellule B&x puis copie colle valeur sur D12.

Range("B" & x).Select
Selection.Copy
Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Attention erreur cette instruction s'exécute qu'à la fin de ma boucle, moi je voudrais qui s'exécute à chaque valeur attribuée dans la boucle comme faire?.

Cela ne marche pas

With Selection
Range("A12").Select
Application.SendKeys "%yFr", True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End With

Loop
End Sub


Merci à vous tous pour les réponses