Bonjour,

Quelqu'un sait-il me donner la raison

ceci fonctionne avec excel 2003 mais est refusé par excel 97
l'erreur est entre "" "Set................."

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
 
With Worksheets("feuil1").Range("C14:E238")
       " Set c = .Find(recherche, LookIn:=xlValues, Lookat:=xlWhole)"
        If Not c Is Nothing Then _
        Worksheets("feuil1").Range("A1") = c.Offset(0, -1) & Chr(10) & recherche
    End With