Chaîne de caractères sur Excel

Sub Macro1()
    Dim lesGarcons() As String
    lesGarcons = TableauDeDonnees("Feuil2", "A")

    Dim lesFilles() As String
    lesFilles = TableauDeDonnees("Feuil3", "A")
    
    Dim lesAdresses() As String
    lesAdresses = TableauDeDonnees("Feuil1", "E")
        
    For i = LBound(lesAdresses) To UBound(lesAdresses)
        Dim prenom As String
        Dim sexe As String
        
        Dim garcon As Boolean
        Dim prenomGarcon As String
        garcon = CompareAdresseEtTableau(lesGarcons, lesAdresses(i), prenomGarcon)
        
        Dim fille As Boolean
        Dim prenomFille As String
        fille = CompareAdresseEtTableau(lesFilles, lesAdresses(i), prenomFille)
        
        If fille And garcon Then
            'si on a trouvé un prénom de fille et de garcon
            MsgBox (lesAdresses(i) + " donne " + prenomGarcon + "  ou " + prenomFille)
            prenom = prenomGarcon + "  ou " + prenomFille
            sexe = ""
            
        ElseIf garcon Then
            sexe = "M"
            prenom = prenomGarcon
    
            
        ElseIf fille Then
            sexe = "F"
            prenom = prenomFille
            
        End If
        
        If garcon Or fille Then 'si un résultat a été trouvé on l'affiche
            With Worksheets("Feuil1")
                .Range("F" & i + 2).Value = sexe
                .Range("C" & i + 2).Value = prenom
            End With
        End If
        
    Next i
    

    
End Sub

Function TableauDeDonnees(NomFeuille As String, Colonne As String) As String()
With Worksheets(NomFeuille)
    Dim donnees As Variant
    Dim dernierLigne As Integer
    
    dernierLigne = .Range(Colonne & Rows.Count).End(xlUp).Row 'dernière ligne non vide
    
    Dim leRange As String
    leRange = Colonne & "2:" & Colonne & dernierLigne
    donnees = .Range(leRange).Value 'toutes les données de la plage A2-> ADerniereLigneNonVide
    
    Dim tailleTableau As Integer
    Dim resultat() As String
    ReDim resultat(dernierLigne - 2)
    
    For i = 1 To UBound(donnees, 1) 'Extraction des données sous forme d'un tableau de string
        resultat(i - 1) = donnees(i, 1)
    Next i
    
    TableauDeDonnees = resultat
End With
End Function

Function CompareAdresseEtTableau(TableauDePrenoms() As String, Adresse As String, ByRef PrenomTrouve) As Boolean
    'comparaison avec l'opérateur Like
    For i = LBound(TableauDePrenoms) To UBound(TableauDePrenoms)
    
        If Adresse Like "*" & TableauDePrenoms(i) & "*@*.*" Then'si ça ressemble à un email avec le prénom dedans
        'si l'adresse correspond à un prénom, on affecte le resulat et on sort
            CompareAdresseEtTableau = True
            PrenomTrouve = TableauDePrenoms(i)
            Exit Function
        End If
    Next i

    'si aucun prenom trouvé
    CompareAdresseEtTableau = False
    PrenomTrouve = ""
End Function

• xlsx pas de macro
• xlsm macro.