Vba

Bonjour,
je suis un novice en vba je viens tout juste de my mettre donc voila
j est creer une macro de teste qui fait la comparaison entre la cologne 1 de la feuille 1 avec les valeur saisi sur la feuille 2 dans la cologne 1 et me dis si les valeur sans excate ou je me suis tromper ds la saisi pour le momen j arrive juste a colorier les cellule donc j aimerai savoir comment je dois faire pour ramener aussi le numero des ligne erroné
je pense qu il faut utiliser un tableau dynamique ms la jy arrive pas
je vous poste l exemple sur le quelle je travail

Public Sub cherche_A1()
Dim sel As Variant
Dim t() As Variant
Dim ii As Integer
ii = 8
Dim strMessage As String, Boucle As Integer

Do While Not (IsEmpty(ActiveCell))

Set sel = Sheets("Deal e-force").Columns("A").Find(Sheets("site offer").Range("A" & ii))


If sel Is Nothing Then
Sheets("site offer").Range("A" & ii).Interior.ColorIndex = 6
ReDim t(ii)
t(ii) = ii

ii = ii + 1
Else
End If

Selection.Offset(1, 0).Select


Loop
strMessage = "Erreur de saisi sur les lignes:"

ReDim t(ii)

For Boucle = 8 To UBound(t)

strMessage = strMessage & " , " & t(Boucle)

Next Boucle

MsgBox strMessage, vbOKOnly, "erreur sur la saisie du code e-force"
End Sub

merci