Sub insererColonne2()
Dim Reponse As Long
Reponse = MsgBox(Prompt:="voulez vous remplacer les données ?", Title:="Attention", Buttons:=vbYesNo)
If Reponse = vbYes Then
Call insererColonne
Else
x = MsgBox(Prompt:="Aucune modification n'a été apportée", Title:="Confirmation", Buttons:=vbOKOnly)
End If
End Sub