Sub SupprimerStyles()
Dim S As Style
For Each S In ActiveWorkbook.Styles
If Not S.BuiltIn Then
On Error Resume Next
If S.Name Like "*_*" Then
S.Delete
Else: If MsgBox("Style """ & S.Name & """ à supprimer ?", _
vbYesNo, "SupprimerStyles") = vbYes Then S.Delete
End If
If Err Then MsgBox "Style """ & S.Name & """ impossible à supprimer :" & vbLf _
& Err.Description, vbExclamation, "SupprimerStyles"
On Error GoTo 0
End If
Next S
End Sub