How to replace accented characters with non-accented ones

gistfile1.sql

CREATE FUNCTION dbo.Format_RemoveAccents( @Str varchar(8000) )
RETURNS varchar(8000)
AS
BEGIN
      /*
            EXEMPLE :
                        SELECT dbo.Format_RemoveAccents( 'ñaàeéêèioô; Œuf un œuf' )
                        ==> naaeeeeioo; OEuf un oeuf

           By Domilo
      */
      
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'a', 'a' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'e', 'e' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'i', 'i' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'o', 'o' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'u', 'u' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'y', 'y' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'n', 'n' )

      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'œ', 'oe' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'æ', 'ae' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'ß', 'ss' )

      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 's', 's' )


      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'A', 'A' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'E', 'E' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'I', 'I' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'O', 'O' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'U', 'U' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'Y', 'Y' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'N', 'N' )

      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'Œ', 'OE' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'Æ', 'AE' )
      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'ß', 'SS' )

      SET @Str = Replace( @Str COLLATE Latin1_General_CS_AI, 'S', 'S' )

      RETURN @Str
END