Eviter les doublons VBA ne fonctionne pas

Bonjour,

Dans mon fichier joints j'ai un code qui est censé me permettre d'éviter de saisir des doublons si les 4 combobox ont déjà été saisis ensemble sur la même ligne mais cela ne fonctionne pas voici le code :

For i = 7 To Sheets("Tableau").Range("A65536").End(xlUp).Row
        If Sheets("Tableau").Range("A" & i) = Me.ComboBox5.Value _
        And Sheets("Tableau").Range("E" & i) = Me.ComboBox2.Value _
        And Sheets("Tableau").Range("F" & i) = Me.ComboBox4.Value _
        And Sheets("Tableau").Range("G" & i) = Me.ComboBox3.Value Then
               MsgBox "Cet element a déjà été saisi, vous pouvez utiliser la barre de recherche (Ligne 2) pour le modifier."
            Exit Sub
        End If
    Next 

Je vous joints également un fichier, merci pour votre aide !

Bonjour,

Le dernier test pour la colonne G, compare du texte avec une valeur numérique, ne pourra donc jamais trouver d'équivalent

Ce qu'il faut faire :

If Sheets("Tableau").Range("A" & i) = Me.ComboBox5.Value _
        And Sheets("Tableau").Range("E" & i) = Me.ComboBox2.Value _
        And Sheets("Tableau").Range("F" & i) = Me.ComboBox4.Value _
        And Sheets("Tableau").Range("G" & i) = (Me.ComboBox3.Value * 1) Then

@+

Super merci beaucoup !