Bonjour à tous,

Je suis confronté à quelque chose d'étrange, voici le programme suivant qui me pose problème:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Résultat").Select
        DerniereLigne3 = Range("A65536").End(xlUp).Row
        'Suppression des collaborateurs sortis (Non présent sur ES)
        Range("I2") = "=VLOOKUP(RC[-8],es!C[-7]:C[-6],2,0)"
        Range("I2").AutoFill Destination:=Range("I2:I" & DerniereLigne3)
        Range("I2:I" & DerniereLigne3).Copy
        Range("I2:I" & DerniereLigne3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        For i = DerniereLigne3 To 2 Step -1
            If Range("I" & i).Value = "#N/A" Then
                Rows(i).Delete
            End If
        Next i
C'est au niveau du texte en rouge que ça bug .. ça me met une erreur d'incomptabilité n°13 ... Je ne comprends pas.
Je cherche tout simplement, après ma recherchev, à supprimer les colonnes comportant en colonne I "#N/A", je ne comprends pas la nature de l'erreur en question. J'ai testé avec Cells, .. , like ... Rien ne marche.

I Need You ! Thanks !!