Sub macro()
exclure = "toto, tata, titi" 'Saisir les noms à exclure suivi d'une virgule"
x = MsgBox("Exclure est " & exclure & " voulez vous en ajouter un ? ", vbYesNo)
If x = vbYes Then
supp = InputBox("Entrez un nom a exclure supplementaire")
exclure = exclure & "," & supp & ","
MsgBox ("le nouvel exclure est " & exclure)
End If
End Sub