Macro Supprimer Style

Bonjour à tous,

Je tente faire fonctionner ce code, mais je n'y arrive pas.

Il bug à ST.DELETE.

Je débute en VBA, le but de ce code est de supprimer les styles perso qui trop nombreux finisse par planter les fichiers (du moins les mise en page).

Sub SupprimerStyle()

Dim st As Style

For Each st In ActiveWorkbook.Styles

If Not st.BuiltIn Then st.Delete

Next st

End Sub

Merci pour votre aide

Flavie

Bonjour,

Teste avec celui-ci qui fonctionne chez moi

(C'est + ou - long suivant les nb d'onglets et de Style)

Public Sub KillStyles()

On Error Resume Next
Dim s As Style

For Each s In ActiveWorkbook.Styles
    If s.Name <> "Normal" Then
        s.Delete
    End If
Next s
Set s = Nothing
End Sub

Bonjour M12,

Merci pour ta réponse.

Cela fait 10 minutes quel tourne c'est normal?

c'est bon cela fonctionne...

Un peu long mais le résultat est là...

merci beaucoup