Procédure Stockée

Réponse acceptée !
Désolé pour la mise en forme... je n'ai pas pu éditer le message
de plus le tout est utilisé en passant en paramètre le nom de la table ...

CREATE PROCEDURE [PS_archives
@Table varchar(max)

AS
BEGIN

    SET NOCOUNT ON;

DECLARE @sql VARCHAR(8000)
DECLARE @ColName VARCHAR(200)
DECLARE @ColType VARCHAR(100)
DECLARE @ColLength VARCHAR(50)
DECLARE @ColNull VARCHAR(50)
DECLARE @ColDefault VARCHAR(100)

DECLARE MyCur CURSOR LOCAL 
FOR
SELECT
'[' + column_name + ']' ColName,
'[' + data_type + ']' ColType,
CASE data_type
    WHEN 'varchar' THEN '(' + cast(character_maximum_length AS VARCHAR) +')'
    WHEN 'nvarchar' THEN '(' + cast(character_maximum_length AS VARCHAR) +')'
    WHEN 'char' THEN '(' + cast(character_maximum_length AS VARCHAR) +')'
    WHEN 'decimal' THEN '(' + cast(numeric_precision AS VARCHAR) +',' + cast(numeric_scale as VARCHAR) +')'
END ColLength,
CASE is_nullable
    WHEN 'yes' THEN 'null'
    ELSE 'not null'
END ColNull,'' ColConstraint,
CASE column_default
    WHEN null THEN ''
    ELSE 'DEFAULT ' + column_default
END ColDefault
FROM INFORMATION_SCHEMA.COLUMNS  iss
INNER JOIN sys.tables st on iss.table_name=st.name
LEFT JOIN sys.default_constraints sdc on sdc.parent_object_id = st.object_id AND sdc.parent_column_id = iss.ordinal_position
WHERE iss.table_name= @Table

SET @sql = ' CREATE TABLE [A_' + @Table + '] ('

OPEN MyCur
FETCH Mycur INTO @ColName, @ColType, @ColLength, @ColNull, @ColDefault

WHILE @@FETCH_STATUS = 0
BEGIN

    SET @sql = @sql + ' ' + isnull(@colname,'') + ' ' + isnull(@coltype,'') + ' ' + isnull(@collength,'') + ' ' + isnull(@colnull,'') + ' ' + isnull(@ColDefault,'') + ','

FETCH Mycur INTO @ColName,@ColType,@ColLength,@ColNull,@ColDefault
END
CLOSE MyCur
DEALLOCATE MyCur

SET @SQL =  substring(@sql,1,charindex(',',@sql,len(@sql)-2)-1) +')'
-- Execute la requete de créationde table
EXEC (@SQL)