Ajout d'une ligne sur toutes les feuilles sauf une

Bonjour !

J'aurais besoin de votre aide concernant une VBA. Le but étant d'ajouter une lignes à toutes les feuilles de mon fichier Excel (2007) sauf aux feuilles nommées "archives" et "synthèse". La VBA fonctionne concernant l'ajout mais j'ai tout de même des lignes ajoutées dans les feuilles "Archives" et "Synthèse". Je vous poste les macro testées. Pourriez-vous m'aidez à comprendre d'où vient l'erreur svp?

J'ai essayé (pour éviter d'ajouter une ligne dans la feuille "Synthèse")

Sub InsérerLigne()
Dim Ligne As Long, i As Integer
Ligne = ActiveCell.Row
Application.ScreenUpdating = False
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Synthèse" Then
     Rows(Ligne & ":" & Ligne).Copy
   Sheets(Ws.Name).Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown
  End If
  Next Ws
End Sub

et (pour éviter d'ajouter dans les feuilles "Archives" et "Synthèse"

Sub InsérerLigne()
Dim Ligne As Long, F As Integer
Ligne = ActiveCell.Row
For F = 1 To Sheets.Count
             If Not (Sheets(F).Name = "Archives" Or Sheets(F).Name = "Synthèse") Then
            Sheets(F).Rows(Ligne).Insert Shift:=xlDown
          
        End If
    Next F
End Sub

Je vous remercie par avance !

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.