Macro copier/remplacer ligne sous condition

Bonjour,

J'ai un code qui me permet de comparer deux feuilles excel de la manière suivante par rapport à trois variables dans les colonnes I, P, R :
- Si la ligne qui se trouve dans la feuille A se trouve aussi dans la feuille B, la ligne est remplacée sur la feuille B,
-Si la ligne qui se trouve dans la feuille A, ne se trouve pas dans la feuille B, la ligne est rajoutée à la fin de la feuille B.

Le problème, c'est que je ne souhaite plus que la ligne entière soit remplaçée parce que j'ai une colonne où j'entre des commentaires, et j'aimerai faire le remplacement ou la copie des cellules de cette ligne à partir de la colonne E à AL mais pas de toute la ligne....

Voici mon code :

Option Explicit

Public Const FM As String = "Launch Tracker"
Public Const lidebFM As Byte = 3

Public Const FL As String = "LAT - Master Data"
Public Const lidebFL As Byte = 3

Public Const co1 As Byte = 9  ' colonne I
Public Const co2 As Byte = 16 ' colonne P
Public Const co3 As Byte = 18 ' colonne R

Public Sub Update()
Dim lifinFL As Long, liFL As Long
Dim lifinFM As Long, liFM As Long
Dim obj As Object
Dim V1 As String, V2 As String, V3 As String
With Sheets(FL)
  ' dernière ligne feuille FL
  lifinFL = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
  ' boucle sur les lignes de FL
  For liFL = lidebFL To lifinFL
    ' dernière ligne de FM
    lifinFM = Sheets(FM).Cells.Find("*", , , , xlByRows, xlPrevious).Row
    ' comparaison des Item ID
    V1 = .Cells(liFL, co1).Value
    ' recherche de V1 dans FM colonne co1
    Set obj = Sheets(FM).Columns(co1).Find(V1, , , xlWhole)
    ' si pas trouve lifm = 1° ligne dispo dans FM pour copie
    If obj Is Nothing Then
      liFM = lifinFM + 1
    ' sinon V1 est trouve à la ligne liFM
    Else
      liFM = obj.Row
      ' compraison de MARKET et SAP
      V2 = .Cells(liFL, co2).Value
      V3 = .Cells(liFL, co3).Value
      ' si identiques on garde liFM = liobj pour ecrasement
      If V2 = Sheets(FM).Cells(liFM, co2).Value And V3 = Sheets(FM).Cells(liFM, co3).Value Then
        ' rien
      Else
      ' si non identiques lifm = 1° ligne dispo dans FM pour copie
        liFM = lifinFM + 1
      End If
    End If
    ' copie de la ligne liFL dans FM à la ligne liFM
    .Rows(liFL).Copy Sheets(FM).Cells(liFM, 1)
  Next liFL
End With

End Sub

Est-ce qu'une personne aurait l'amabilité de m'aider ?

Cordialement,

Agathe