Macro copier/coller ligne si plusieurs conditions

Bonjour,

Dans un souci d'automatisation, je cherche à mettre à jour les données d'une feuille excel par rapport aux données que j'exporte d'une base de données.

Je cherche à mettre à jour ma ligne i dans ma feuille "Master Data" si ma ligne se trouve dans ma feuille "LAT - Update" en validant trois conditions :
- La cellule de la colonne H de Master Data a la même valeur que la cellule de ma colonne H de "LAT - Update"
- La cellule de la colonne O de Master Data a la même valeur que la cellule de ma colonne O de "Lat - Update"
- La cellule de la colonne Q de Master Data a la même valeur que la cellule de ma colonne Q de "Lat - Update"

Sinon, si la ligne qui se trouve dans "LAT - Update" n'est pas dans "Master Data", qu'elle soit rajoutée à la fin de mon tableau.

Pour l'instant j'ai réussi écrire le code suivant, mais il ne fonctionne pas parce qu'il me cherche une correspondance qu'entre les lignes i mais ne fait pas de recherche dans ma feuille "Update" et ne copie pas la ligne recherchée mais juste la ligne i :

 Private Sub Update_Click()
'Procedure permettant de déplacer les programmes terminés
'Déclaration des variables

Dim i As Integer
Dim DerniereLigne As Integer
Dim ligne As Integer

Application.ScreenUpdating = False
    Sheets("Master Data").Select
          DerniereLigne = Range("E100000").End(xlUp).Row
          For i = 3 To DerniereLigne
          ligne = Range(Ei, Yi)
       
          If Sheets("Master Data").Cells(i, 8).Value = sheets("LAT - Update").Cells(i,8).value and ("Master Data").Cells(i, 15).Value = sheets("LAT - Update").Cells(i,15).value and ("Master Data").Cells(i, 17).Value = sheets("LAT - Update").Cells(i,17).value Then
                 Sheets("LAT - Update").ligne.Copy
                 Sheets("Master Data").Activate
                 Sheets("Master Data").ligne.Select
                 Sheets("Post Launch").Paste

          Else: Sheets("LAT - Update").Activate
                Sheets("LAT - Update").ligne.Copy
                Sheets("Master Data").Cells(Rows.Count, "E").End(xlUp)(2).Select
                Sheets("Master Data").Paste
                
          End If
Next i

Application.CutCopyMode = False

Application.ScreenUpdating = True
MsgBox "Le remplacement est terminé", vbOKOnly + vbInformation, "FYI"
End Sub

Y aurait-il une âme charitable capable de m'aider ?

Cordialement,