Liste déroulante pour minutes ?

Bonjour, j'ai cette macro avec un délai de 10 minutes pour mise à jour, j'aimerais sur une liste déroulante avoir 3 choix : 5, 10 ou 15 minutes. Merci pour votre aide.

Sub RafraichissementGraphe()
DansDixMinutes = TimeSerial(Hour(Time), Minute(Time) + 10, Second(Time))
Application.OnTime DansDixMinutes, "RafraichissementGraphe"
Call mamacro
End Sub

Bonjour

Tu remplaces le +10 par la cellule qui contient la liste

= TimeSerial(Hour(Time), Minute(Time) + Range("B1"), Second(Time))

Amicalement

Nad

Oui merci