Bonjour ! J'ai un petit souçi sur un de mes codes. Je cherche à comparer des informations, des noms et des adresses, qui sont situé sur 2 feuilles. Pour éviter les souçis je désir passer les information en majuscule lors du test. Voilà mon petit code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Confirmation_d_affretement()
 
Dim Dos, LastLig As Integer
Application.ScreenUpdating = False
 
Dos = Sheets("Crée stat").Cells(7, 2)
LastLig = Sheets("Adresses").Cells(Rows.Count, "B").End(xlUp).Row
 
'Vérification des données expediteur
For i = 2 To LastLig
    If UCase(Sheets("Transfret - Recap Lot 2011").Cells(Dos, 6)) = UCase(Sheets("Adresses").Cells(i, 1)) Then 'Verification du nom de client
        If UCase(Sheets("Transfret - Recap Lot 2011").Cells(Dos, 8)) = UCase(Sheets("Adresses").Cells(i, 5)) Then 'Vérification de l'adresse
            Sheets("Crée stat").Range(B, 9) = "Expediteur OK" 'Message de confirmation
            i = LastLig
        Else: Sheets("Crée stat").Range(B, 9) = "Veuillez renseigner l'expediteur dans la BDD, ou verifier son orthographe" 'Message d'erreur
        End If
    End If
Next
Or ma ligne 11 buggue, j'ai l'impression que cela viens de l'utilisation des majuscules. Car j'ai une erreur 1004. Si quelqu'un pouvait m'éclairer de sa lanterne. Grand merci à vous