Dim p As Integer, pas As Integer, temps As Date, fichier as String, répertoirePhoto As String
-----------
Sub Début()
répertoirePhoto = "C:\Users\à peindre2\" ' A adapter à chaque cas
fichier = "DSC_0" 'A Adapter à chaque cas
pas = 10
majHeure
End Sub
----------
Sub majHeure()
For p = 1 To 4
Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & fichier & 100 + p & ".jpg")
Application.Wait (Now + pas)
Next
End Sub
----------
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub