Private Sub Workbook_Open()
'va se lancer à l'ouverture du classeur
Dim réponse
réponse = MsgBox('Voulez-vous charger les données', vbYesNo)
If réponse = 6 Then
'on a cliqué sur Oui appel de la procédure
Call ma_procédure_d_import
End If
End Sub