Vous pourriez essayer

iMsg = MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Select Case iMsg
Case vbYes

Trevor

wrote in message
ups.com...
Bonjour

J'ai cette macro mais il n'y a pas de msgbox qui apparaît. Qu'est-ce
qui ne fonctionne pas?

Private Sub Workbook_Open()

Select Case MsgBox("Voulez-vous mettre à jour les cellules?", vbYesNo)
Case vbYes

Feuil1.Select
With Feuil1
.Range("G38").Copy
.Range("G11").PasteSpecial Paste:=xlPasteValues
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With

Feuil2.Select
With Feuil2
.Range("C19:H42").Delete Shift:=xlUp
.Range("P523:U545").Copy .Range("C523:H545")
.Range("A1").Select
End With

Case vbNo
ThisWorkbook.Open = False

End Select

End Sub

Merci
MP