Ajouter et supprimer des lignes dans un tableau

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'au double-clic dans un onglet
Dim IOA As Byte 'déclare la variable IOA (Index de l'Onglet Actif)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim DM As Worksheet 'déclare la variable DM (Dernier Mois)
Dim PLV As Long 'déclare la variable PLV (Première Ligne Vide)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
If Target.Column <> 1 Then Exit Sub 'si le double-clic a lieu ailleurs que dans la colonne 1 (=A), sort de la procédure
Cancel = True 'évite le mode [Édition] lié au double-clic
IOA = ActiveSheet.Index 'définit l'index IOA de l'onglet actif
If IOA = Sheets.Count Then Exit Sub 'si l'onglet actif est le dernier, sort de la procédure
LI = Target.Row 'définit la ligne LI de la cellule double-cliquée
Set DM = Sheets(Sheets.Count) 'définit l'onglet DM du dernier mois
'si "non" au message sort de la procédure
If MsgBox("Êtes-vous sûr(e) de vouloir ajouter " & Target.Offset(0, 1).Value & " " & Target.Value & _
   ", du mois de " & Sheets(IOA + 1).Name & " au mois de " & DM.Name & " ?", vbYesNo, "AJOUT") = vbNo Then Exit Sub
For I = IOA + 1 To Sheets.Count 'boucle sur les onglets, de IOA + 1 au dernier
    PLV = Sheets(I).Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne A
    'copie la ligne de la cellule double-cliquée et la colle dans la cellule ligne PLV colonne A de l'onglet de la boucle
    Sheets(IOA).Rows(LI).Copy Sheets(I).Cells(PLV, "A")
    'tri par ordre alphabétique l'onglet de la boucle
    Sheets(I).Range("A1").CurrentRegion.Sort Key1:=Sheets(I).Range("A1"), Order1:=xlAscending, Header:=xlYes
Next I 'prochain onglet de la boucle
'tri par ordre alphabétique l'onglet de la cellule double-cliquée
Sheets(IOA).Range("A1").CurrentRegion.Sort Key1:=Sheets(IOA).Range("A1"), Order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'au clic-droit dans un onglet
Dim N As String 'déclare la variable N (Nom)
Dim P As String 'déclare la variable P (Prénom)
Dim IOA As Byte 'déclare la variable IOA (Index de l'Onglet Actif)
Dim DM As Worksheet 'déclare la variable DM (Dernier Mois)
Dim R As Range 'déclare la variable R (Recherche)
Dim PAS As String 'déclare la variable PA (Première Adresse)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
If Target.Column <> 1 Then Exit Sub 'si le clic-droit a lieu ailleurs que dans la colonne 1 (=A), sort de la procédure
Cancel = True 'évite le menu contextuel lié au clic-droit
N = Target.Value 'définit le nom N de la cellule cible (=cellule du clic-droit)
P = Target.Offset(0, 1).Value 'définit le prénom P
IOA = ActiveSheet.Index 'définit l'index IOA de l'onglet actif
Set DM = Sheets(Sheets.Count) 'définit l'onglet DM du dernier mois
'si "non" au message sort de la procédure
If MsgBox("Êtes-vous sûr(e) de vouloir Supprimer " & Target.Value & " " & Target.Offset(0, 1).Value & _
   ", du mois de " & Sheets(IOA).Name & " au mois de " & DM.Name & " ?", vbYesNo, "SUPPRESSION") = vbNo Then Exit Sub
For I = IOA To Sheets.Count 'boucle sur les onglets, de IOA au dernier
    Set R = Nothing 'vide variable R
    'définit la recherche R (recherche le nom N dans la première colonne de l'onglet de la boucle)
    Set R = Sheets(I).Columns(1).Find(N, , xlValues, xlWhole)
    If Not R Is Nothing Then 'condition : s'il existe au moins une occurrence trouvée
        PA = R.Address 'définit l'adresse PA de la première occurrence trouvée
        Do 'exécute
            'si le prénom de l'occurrence trouvé correspond au prénom de la cellule cible,
            'supprime la ligne de l'occurrence trouvé et va à l'étiquette "suite"
            If R.Offset(0, 1).Value = P Then Sheets(I).Rows(R.Row).Delete: GoTo suite
            Set R = Sheets(I).Columns(1).FindNext(R) 'redéfinit la recherche R (occurrence suivante) [en cas d'homonymie]
        Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en PA
    End If 'fin de la condition
suite: 'étiquette
    'tri par ordre alphabétique l'onglet de la boucle
    Sheets(I).Range("A1").CurrentRegion.Sort Key1:=Sheets(I).Range("A1"), Order1:=xlAscending, Header:=xlYes
Next I 'prochain onglet de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub