Bonjour Philippe et Pascal76
Au risque de m'attirer les foudres de ....
Philippe, ton code est du genre
structure simplifiée ici)
Private Sub UserForm_Click()
Application.ScreenUpdating = False
'Call Plop2
Worksheets('Feuil1').Activate
For Each feuila In ActiveWorkbook.Worksheets
feuila.Activate
Range('A1').Select
Range('L84').Select
Range('D20').Select
Next feuila
Application.ScreenUpdating = True
End Sub
ou
Private Sub Cmd1_Click()
Application.ScreenUpdating = False
'Call Plop2
Worksheets('Feuil1').Activate
For Each feuila In ActiveWorkbook.Worksheets
feuila.Activate
Range('A1').Select
Range('L84').Select
Range('D20').Select
Next feuila
Application.ScreenUpdating = True
End Sub
ou ça n'a iren à voir, mon dragon a respiré trop de fumée et faut lui expliciter
cordialement,
Bfr