Comparaison de feuilles

Bonjour, j'aurais besoin de vos lumières. Je bloque sur une ou deux lignes de codes que je n'arrive pas à résoudre. Dans le code suivant je veux comparer chacunes des lignes de ma feuille Import avec celles de ma feuille Total. Si les lignes de la feuille Import se retrouvent dans la feuille Total il me faut les supprimer. Chaque feuille ont chacun 5 colonnes.

Sub Eliminer() 'Éliminer toutes les correspondances

Dim colonne As Range

Dim Max As Long

Dim i As Integer

Application.ScreenUpdating = False

Max = Sheets("Import").Range("A" & Rows.Count).End(xlUp).Row

With Sheets("Total")

Set colonne = .Range(.Range("A1"), .Range("G" & Rows.Count).End(xlUp))

End With

For i = Max To 1 Step -1

If Not IsError(Application.Match(Sheets("Import").Rows(i), colonne)) Then

Sheets("Import").Cells(i, 2).EntireRow.Delete

End If

Next

Set colonne = Nothing

End Sub

Merci pour votre précieuse aide.

Clément

Bonjour,

Une solution avec utilisation de tableaux et concaténation des cellules.

Pour montrer le résultat, les lignes ne sont pas supprimées mais coloriées.

Il te suffira de modifier la ligne concernée.

A+

Merci beaucoup Frangy ta réponse me conviens parfaitement.

Bonne fin de journée

Clément