Supression de la même ligne sur chacune des feuilles

Bonjour,

j'ai ce code qui me permet d'insérer une ligne sur général, personne1,2 etc... au même endroit

Sub InsererLigne()
Dim Ws As Worksheet
Dim Reponse As Integer, F As Integer
Dim LigneI As Long
Dim Feuilles
    Feuilles = Array("general", "personne1", "personne2", "personne3", "personne4", "personne5", "personne6", "personne7", "personne8", "personne9", "personne10")
    LigneI = ActiveCell.Offset(1).Row
    Reponse = MsgBox("Confirmez-vous l'insertion entre la ligne " & LigneI - 1 & _
    " et la ligne " & LigneI, vbOKCancel)
    If Reponse = vbOK Then
        For F = 0 To UBound(Feuilles)
            Worksheets(Feuilles(F)).Rows(LigneI).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next F
    End If
End Sub

Ce que je cherche maintenant c'est de la même façon si je supprime la ligne en question dans general elle ce supprime aussi dans les autres feuilles

merci.

Si quelqu'un a une autre solution que mon code je suis preneur

Bonsoir,

à tester

Sub supprimerLigne()
Dim Ws As Worksheet
Dim Reponse As Integer, F As Integer
Dim LigneI As Long
Dim Feuilles
    Feuilles = Array("general", "personne1", "personne2", "personne3", "personne4", "personne5", "personne6", "personne7", "personne8", "personne9", "personne10")
    LigneI = ActiveCell.Offset(1).Row
    Reponse = MsgBox("Confirmez-vous la suppression de la ligne " & LigneI , vbOKCancel)
    If Reponse = vbOK Then
        For F = 0 To UBound(Feuilles)
            Worksheets(Feuilles(F)).Rows(LigneI).delete Shift:=xlup
        Next F
    End If
End Sub

Re,

Merci il fonctionne parfaitement