Excel VBA : extraire chaine caracteres

 ' Analyse colonne C du fichier 1 - recherche de la clé
    For Each cel1 In ws1.Range("C2:C" & derlig1)
For Each cel3 In ws3.Range("C2:C" & derlig3)
            ' Si les clés correspondent, alors verifier de quel produit elle depend et transfert de la ligne vers l'onglet concerné
            b = cel1
            If InStr("*", b$) > 0 Then A$ = Left(InStr("*", b$) - 1)
            If (cel3.Value Like cel1.Value) Or (A Like cel3) Then
                ws1.Rows(cel1.Row).Copy
                    ws8.Select
                    Cells(cel8, 1).Select
                        ActiveSheet.Paste
                            cel8 = cel8 + 1
            End If
        Next cel3
Next cel1

Function avant_etoile(ByVal texto As String) As String
Dim cptr As Byte
For cptr = 1 To Len(texto)
     If Asc(Mid(texto, cptr, 1)) = 42 Then
          avant_etoile = Left(texto, cptr - 1)
          Exit Function
     End If
Next
avant_etoile = texto
End Function

Sub test()
cell1 = "ddd*(-è"
cell1 = avant_etoile(cell1)
MsgBox cell1
End Sub

 If InStr(b$,"*") > 0 Then A$ = Left(InStr(b$,"*") - 1)

' Analyse colonne C du fichier 1 - recherche de la clé 
    For Each cel1 In ws1.Range("C2:C" & derlig1) 
For Each cel3 In ws3.Range("C2:C" & derlig3) 
            ' Si les clés correspondent, alors verifier de quel produit elle depend et transfert de la ligne vers l'onglet concerné 
            b$ = cel1 
             
            If InStr(b$, "*") > 0 Then A$ = Left(InStr(b$, "*") - 1) 
            b = (Split(cel1, "*")) 
            If (cel3.Value Like cel1.Value) Or cel3 = A$ Then 
                ws1.Rows(cel1.Row).Copy 
                    ws8.Select 
                    Cells(cel8, 1).Select 
                        ActiveSheet.Paste 
                            cel8 = cel8 + 1 
            End If 
        Next cel3 
Next cel1