Modification des lignes en fonction d'une valeur

Dim LigneModifiee As Long
        LigneModifiee = 10 + Me.SiteModifier_Liste.ListIndex
With LesSites
Cells(LigneModifiee, 1) = Me.NomSite_Champ
             .Cells(LigneModifiee, 2) = Me.AdresseSite_Champ
             .Cells(LigneModifiee, 3) = Me.TypeSite_Liste
             '.Cells(LigneModifiee, 4) = Me.CiviliteResponsableSite_Cadre
             .Cells(LigneModifiee, 5) = Me.NomResponsableSite_Champ
             .Cells(LigneModifiee, 6) = Me.PrenomResponsableSite_Champ
             .Cells(LigneModifiee, 7) = Me.DepartementResponsableSite_Liste
'Sélection de la feuille "plans"
                LesPlans.Activate
            Dim LigneCopieePlan As Long
            'Affectation du numéro de la ligne de début de données à la variable LigneCopieePlan
            LigneCopieePlan = 10
            Dim LigneFinDonneesDomaine As Long
 LigneFinDonneesDomaine = LesPlans.[A1048576].End(xlUp).Row
                 While ((Cells(LigneCopieePlan, 4) <> NomResponsableSiteAvantModification _
                 Or Cells(LigneCopieePlan, 2) <> AdresseSiteRATPAvantModification _
                 Or Cells(LigneCopieePlan, 5) <> PrenomResponsableSiteAvantModification) _
                 And LigneCopieePlan <= LigneFinDonneesDomaine)
                    LigneCopieePlan = LigneCopieePlan + 1
                Wend
                If (LigneCopieePlan > LigneFinDonneesDomaine) Then
                    MsgBox "Correspondance non trouvée dans la feuille [Plans ] du classeur [Gestion des Plans ]" & vbCrLf & vbCrLf & _
                    "La modification ne s'est donc pas effectuée sur cette feuille.", _
                    vbExclamation + vbOKOnly, _
                    "Pas de correspondance dans la feuille [Plans] du classeur [Gestion des Plans ]"
                Else
                  If (NomResponsableSiteAvantModification <> Me.NomResponsableSite_Champ) Then
                
                    LesSites.Activate
                 LesSites.Cells(LigneModifiee, 1).EntireRow.Select
              Selection.Copy
                                    LesPlans.Activate                   
 Dim NouvelleLigneFinDonneesDomaine As Long
                   
         NouvelleLigneFinDonneesDomaine = LesPlans.[A1048576].End(xlUp).Row
                    LesPlans.Cells(NouvelleLigneFinDonneesDomaine + 1, 1).EntireRow.Select
                  
                    Selection.PasteSpecial
                    LesPlans.Cells(LigneCopieePlan, 1).Delete Shift:=xlUp
                     
                    Else
                    
                    LesSites.Activate
                    'Sélection de la nouvelle ligne ajoutée (fichier Gestion des Plans de Prévention)
                    LesSites.Cells(LigneModifiee, 1).EntireRow.Select
                    'Copie de la ligne sélectionnée
                    Selection.Copy
                    'Sélection du classeur ouvert
                   LesPlans.Activate
                    'Sélection de la cellule correspondant à la référence du Plan  à dupliquer
                    LesPlans.Cells(LigneCopieePlan, 1).Select
                    'Collage des données sur la ligne
                    Selection.PasteSpecial
                   
                End If
                 End If