Private Sub CommandButton1_Click()
'
If MsgBox("Toutes les données de la colonne Italie et France vont être effacées ! Êtes-vous sûr(e) de vouloir continuer ?",vbYesNo, "Attention !") = vbYes Then Range("E3:E18", "H3:H18") = ""
Range("E3").Select 'la cellule E3 est sélectionnée
End Sub