Bonjour tout le monde,
 
je débute dans le domaine de la macro excel et n'y comprend pas grand chose actuellement d'où mon appelle à vous.
 
j'ai une erreur d'exécution '91' qui s'affiche à la fin de ma macro qui est la suivante:
 

 
Et il bloque à cette endroits  
selection.Find(What:="TLSSYP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
pour quelle raison?
 
je vous remercie de votre aide

j'ai trouvé une autre solution et elle fonctionne bien
 
Sub autre_test()
 
Sheets("Montants facturés par carte" ).Select
With Worksheets("Montants facturés par carte" ).Range("e:e" )
    Set c = .Find("TLSSYP", LookIn:=xlValues)
         
    If Not c Is Nothing Then
         
        Do
            Cells(c.Row, c.Column - 4) = "=VLOOKUP(RC[4],Codex!C:C[2],2,FALSE)"
            c.Value = Cells(c.Row, c.Column - 4)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
     
    Columns("A:A" ).ClearContents
     
End With
 
End Sub