Bonjour a tous,

alors voila je souhaite tester plusieur valeur sur une cellule, et si elle aparait pas, déplacer la ligne de la cellule dans une autre feuille.

Juste le code du test sur lequel porte l'erreur 13.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Cel.Text = ("50") Or ("55") Or ("BAMBI perd MAMAN") Or ("ISM") Or ("Kiri") Or ("Laser Quest") Or ("LASER ENTERTENEMENT") Or ("SOLIDAIRE") Or ("Babar et les joyeux lutins") Then
            Cel.EntireRow.Cut
            Sheets("Hors périm").Range("A" & i).Paste
            i = i + 1
End If
il me surligne la ligne du if en m'indiquant erreur d'exécution '13', en me balladant sur le net,j'ai vu que c'etais un pb d'incompatibilité ou de format. ce que je ne comprends pas, c'est que je met entre "" les valeur, donc il est censé tester la chaine de caractere.

Merci par avance.