VBA Rechercher début de 2 tableaux puis comparer leur contenu

Bonjour,

Merci beaucoup cela fonctionne très bien pour déterminer le début des lignes à comparer mais je n'arrive pas à intégrer la comparaison des lignes après ...

Je voudrais qu'une fois le début déterminé il compare toutes les lignes des deux feuilles jusqu'à la fin et mette en rouge sur la deuxième feuille ce qui change.

Private Sub CommandButton1_Click()

Set sh1 = Sheets("MSA_ref")
Set sh2 = Sheets("MSA_comp")
sh1FirtRw = Application.Match(1, sh1.Range("A:A"), 0)
sh1LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
sh2FirtRw = Application.Match(1, sh2.Range("A:A"), 0)
sh2LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Integer
i = 2
While i < 20
If Worksheets("MSA_ref").Range("sh1FirtRw" + CStr(i)).Value <> Worksheets("MSA_comp").Range("sh2FirtRw" + CStr(i)).Value Then
'je pense que le problème vient de l'identification de mon Range mais je ne maitrise pas assez la VBA pour résoudre mon problème
Worksheets("MSA_comp").Activate
Worksheets("MSA_comp").Range("sh2FirtRw" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
i = i + 1
Wend

End Sub

Bonjour je reviens sur le sujet j'ai mis à disposition un fichier d'exemple si quelqu'un a une piste pour m'aider à corriger ma boucle :)

Merci d'avance !

https://www.cjoint.com/c/GDepiGR5swj