Bonjour à tous

Je suis bloqué sur une boite de dialogue, pourriez vous me dire où est le problème ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Importation_effacer()
'
' Importation_effacer Macro
'
 
'
    Rows("3:1048576").Select
    Selection.ClearContents
    Range("B3").Select
 
    If MsgBox("Voulez vous vraiement effacer le contenu Importation ?", vbYesNo + vbCritical + vbDefaultButton2, "Attention")
    End If
 
 
End Sub
Merci par avance

@+ Filou