On y est presque!
Private Sub Workbook_Open()
Dim i As Long, j As Integer
'affichage de l'image
' UserForm1.Show 0
' UserForm1.Repaint
Sheets(1).Image1.Visible = True
' ton code
Application.ScreenUpdating = False
Dim T, a
T = Timer + 3
Do While Timer < T: Loop
' For i = 1 To 200
' For j = 1 To 600
' Sheets(1).Cells(i, j).Value = i * j
' Next j
' Next i
Application.ScreenUpdating = True
Sheets(1).Image1.Visible = False
' effacement de l'image
' Unload UserForm1
End Sub
Su ce code tu spécifie ou l'image que tu veux montrer? Exemple image1 tu le définit comment?
Merci pour ton aide