Comparaison

Bonsoir
Je fait mes premiers pas dans la programmation en vba. j'ai écrit un algorithme qui compare deux colones et ressort les similitudes. il fonctionne très bien mais le souci c'est qu'il est très lent. il prend 5 minutes pour exécuter un code sur 7900 lignes. s'il vous plait aidez mois à l'optimiser afin qu'il prenne moin de temps. voici le code en question:

Sub compare()
'
Dim CompareRange As Variant
Dim x As Variant
Dim y As Variant
Dim i As Integer
Dim date_debut As Date, date_fin As Date

Set CompareRange = Range("A:A")
date_debut = Now
For Each x In ActiveSheet.Range("C:C")
For Each y In CompareRange

If x = y Then
x.Offset(0, 1) = x
i = i + 1
End If
If y = "" Then

GoTo sortie1

End If
Next y
sortie1:   'etiquette de sortie
If x = "" Then
GoTo fin

End If
Next x
fin:     'etiquette de fin de l'opération
date_fin = Now

MsgBox "le nombre de tour est :" & i & "debut : " & date_debut & " fin:" & date_fin
End Sub

Merci pour votre aide attendu

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.