Supprimer des lignes en gras ds un classeur entier

Bonjour,

Je souhaiterais supprimer toutes les lignes en gras dans plusieurs feuilles d'un classeur (sauf la 1ère de chaque feuille car c'est l'en-tete).

Je pensais avoir la solution mais le code suivant ne supprime que la feuille active.

Sub supprim_ligne_gras()

Dim Ws As Worksheet
Dim i As Integer

    For Each Ws In Worksheets
        For i = [A65000].End(xlUp).Row To 3 Step -1
            If Cells(i, 1).Font.Bold Then Rows(i).Delete
        Next i
    Next Ws
End Sub

Merci de votre aide

Bonjour,

essais en modifiant comme ceci :

Sub supprim_ligne_gras()

Dim Ws As Worksheet
Dim i As Integer

Application.ScreenUpdating = False

    For Each Ws In ActiveWorkbook.Worksheets
        For i = Ws.Range("A65000").End(xlUp).Row To 3 Step -1
            If Ws.Cells(i, 1).Font.Bold Then Ws.Rows(i).Delete
        Next i
    Next Ws

Application.ScreenUpdating = True

End Sub

Cordialement,

Bonjour

Macro modifiée de ton fichier

A vérifier

@Zirak : Merci cela fonctionne parfaitement. effectivement quand j'ai vu ton code, j'ai tilté sur mon oubli

@Banzai64: Merci. Intégré dans ma première demande, c'est le must.