Sub Vider_zone_taux_I12_ins()
[Zone_Taux_I12_ins].Interior.Color = vbRed
If MsgBox("Vous allez supprimer toutes les données de :" & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I12_ins] = Array(0, , "En cours")
[Zone_Taux_I12_ins].Interior.Color = vbWhite
Exit Sub
End Sub