Macro qui répété la même action dans un second onglet

Bonjour,

Je cherche désespérément à faire un macro qui me permettrait de répéter une action dans un second onglet. Pour faire simple, la macro doit insérer une ligne dans les onglets appelés "Congés à prendre" et "ABS EXCEPT" (par exemple la ligne 5) et le nom du salarié dans la colonne b de cette ligne. La macro ne fonctionne pourtant pas. Pouvez vous m'aider ?

Je vous remercie d'avance,

Sub test4()

Dim s As Worksheet, ligne&

ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne ?", "N° Ligne")

For Each s In Worksheets

Select Case s.Name

Case "Congés a prendre", "ABS EXCEPT"

s.Rows(ligne).Insert Shift:=xlDown

Dim x As String, nom

nom = InputBox("Quel est le nom de famille du salarié ?", "Nom nouveau salarié", "A saisir dans les deux onglets")

Cells(s, 2).Value = nom

End Select

Next s

End Sub

Bonsoir,

Sub test4()
    Dim s As Worksheet, ligne&, nom$
    ligne = InputBox("A quelle position voulez-vous insérer une nouvelle ligne ?", "N° Ligne")
    nom = InputBox("Quel est le nom de famille du salarié ?", "Nom nouveau salarié")
    For Each s In Worksheets
        Select Case s.Name
            Case "Congés a prendre", "ABS EXCEPT"
                s.Rows(ligne).Insert
                s.Cells(ligne, 2) = nom
        End Select
    Next s
End Sub