ENLEVER ACCENTS, PONCTUATION ...

Sub Bouton7_QuandClic()

j = 2
While Range("a" & j).Value <> ""
    modiffinal = ""
    For i = 1 To Len(Range("a" & j).Value)
        lettre = Asc(Mid$(Range("a" & j).Value, i, 1))
        
        Select Case lettre
            Case 138, 154
                modif = "s"
            Case 140, 156
                modif = "oe"
            Case 142, 158
                modif = "z"
            Case 159, 221, 253, 255
                modif = "y"
            Case 192 To 197, 224 To 229
                modif = "a"
            Case 230, 198, 231, 199
                modif = "ae"
            Case 232 To 235, 200 To 203
                modif = "e"
            Case 236 To 239, 204 To 207
                modif = "i"
            Case 240, 208
                modif = "d"
            Case 241, 209
                modif = "n"
            Case 242 To 246, 210 To 214
                modif = "o"
            Case 215
                modif = "x"
            Case 217 To 220, 249 To 252
                modif = "u"
            Case 97 To 122, 65 To 90
                modif = Mid$(Range("a" & j).Value, i, 1)
            Case 44
                If virgule = False Then
                    modif = ","
                    virgule = True
                Else
                    modif = " "
                End If
            Case Else
                modif = " "
                espace = i
        End Select
         If espace = i - 1 Or i = 1 Then
            modif = UCase(modif)
        Else
            modif = LCase(modif)
        End If
        
        modiffinal = modiffinal & modif
    Next i
    espace = 0
    virgule = False
    z = InStr(1, modiffinal, ",")
    If z = 0 Then
        y = InStr(1, modiffinal, " ")
        
        If y = 0 Then
           saisie = InputBox("le format du nom est incorrect, impossible de le corriger. Veuillez le saisir ici ( nom, prenom): ", "erreur", modiffinal)
           Range("a" & j).Value = saisie
           
           
           GoTo fin
        Else
            modiffinal = Left$(modiffinal, y - 1) & "," & Right$(modiffinal, Len(modiffinal) - y + 1)
            z = InStr(1, modiffinal, ",")
        End If
    End If
    If Mid$(modiffinal, z + 1, 1) <> " " Then
    Stop
        modiffinal = Left$(modiffinal, z) & " " & UCase$(Mid$(modiffinal, z + 1, 1)) & Right$(modiffinal, Len(modiffinal) - z - 1)
    End If

    Range("a" & j).Value = modiffinal
    j = j + 1
fin:
Wend
End Sub