Code OK sous Vista erreur sous Windows 7

Bonjour à tous !!!

Tout est dans le titre !! =) J'ai une fonction automatique de tri et gestion de doublon en fonction d'une date qui est superbe !!!!!! Sauf quand je passe sur windows 7.....

Lorsque j'active la fonction sur w7 plantage direct et le message d'erreur de bibliothèque absente s'affiche en surlignant la fonction Trim...

J'ai recherché un peu déjà mais je ne trouve pas de chose concluante. c'est pourquoi je me tourne vers ce magnifique forum !!

Je vous joins le code qui plante. Merci d'avance !!!! =)

Private Sub Worksheet_Activate()
    Dim n%, i%
    With Worksheets("Import ICRH")
        If .AutoFilterMode Then
            If .FilterMode Then .ShowAllData
        End If
        n = .Range("A" & .Rows.Count).End(xlUp).Row
        Application.ScreenUpdating = False
        .Range("A2:J" & n).Sort Key1:=.Cells(2, 1), Order1:=xlAscending, _
         Key2:=.Cells(2, 2), Order2:=xlAscending, _
         Key3:=.Cells(2, 3), Order3:=xlAscending, Header:=xlNo
        For i = n - 1 To 2 Step -1
            If Trim(.Cells(i + 1, 1)) & Trim(.Cells(i + 1, 2)) & Trim(.Cells(i + 1, 3)) = _
             Trim(.Cells(i, 1)) & Trim(.Cells(i, 2)) & Trim(.Cells(i, 3)) Then
                If .Cells(i, 5) <= .Cells(i + 1, 5) Then
                    .Cells(i, 5).EntireRow.Delete
                Else
                    .Cells(i + 1, 5).EntireRow.Delete
                End If
            End If
        Next i
        Application.ScreenUpdating = True
    End With
 End Sub

bonjour,

dans le menu de VBA :

Outils > Référence décocher la référence déclarée manquante...

A+

Sérieux ???? C'est tout ????? Arf !!!!! Je vais tester dès que je peux et je reviens valider ou non ^^

Merci de ton aide =)

Hmmm...

C'est une possibilité ! Si pas ça, on cherchera des complications, mébon...

A+

Je vais pouvoir tester demain matin !! Ne soit pas surpris de ne pas avoir de réponse d'ici là =)