Salut White Wolf, Nad-Dan et Amadéus
Pour éviter les accents, les espaces, les caractères de ponctuation ...
Une petite fonction
Function Rep_Car(Valeur As String) As String
Dim Boucle As Integer, Limite As Integer
Dim Nouveau As String, Carac As String
Nouveau = ""
Limite = Len(Valeur)
For Boucle = 1 To Limite
Carac = LCase(Mid(Valeur, Boucle, 1))
Select Case Carac
Case "0" To "9": Nouveau = (Nouveau & Carac)
Case "a" To "z": Nouveau = (Nouveau & Carac)
Case "á", "â", "ä", "à", "å", "ã": Nouveau = (Nouveau & "a")
Case "ç": Nouveau = (Nouveau & "c")
Case "é", "ê", "ë", "è": Nouveau = (Nouveau & "e")
Case "í", "î", "ï", "ì": Nouveau = (Nouveau & "i")
Case "ó", "ô", "ö", "ò", "õ": Nouveau = (Nouveau & "o")
Case "ú", "û", "ü", "ù": Nouveau = (Nouveau & "u")
Case Else: Nouveau = (Nouveau & "")
End Select
Next Boucle
Rep_Car = Nouveau
End Function
Utilisable comme ceci : =SOMMEPROD((J8:J11=Rep_car(J16))*1;L8:L11)
Mytå