local Palette = { }  function Palette.listePalette( frame ) 	local args = frame.args 	local parentArgs = frame:getParent().args  	 	local wikiTable = { '<div class="navbox_group" style="clear:both;">\n' } 	setmetatable( wikiTable, { __index = table } )   -- permet d'utiliser les fonctions de table comme des méthodes 	local palettesVerticales = '' 	 	local maxPalette = tonumber( args.maxPalette ) or 4 	local categoriePaletteInconnue = '[[Catégorie:Modèle Palette - Palette inconnue]]' 	local categorieTropDePalette = '[[Catégorie:Modèle Palette - Page contenant trop de palettes]]' 	local categoriePaletteEnDouble = '[[Catégorie:Modèle Palette - Palette affichée en double]]' 	 	local categories = { } 	 	local function _erreur( texte, param, ... ) 		if param then texte = texte:format( param, ... ) 		end  		local sep = #wikiTable > 1 and '<hr>' or '' 		return sep .. '<p><strong class="error" style="padding-left:.5em;">' .. texte .. '</strong></p>\n' 	end 	local function _pasDePalette() 		return _erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' ) 	end 	 	local function _paletteInconnue( i ) 		categories.paletteInconnue = categoriePaletteInconnue 		local nomPalette = mw.text.trim( parentArgs[i] ) 		return _erreur( 'Erreur : il n’existe pas de modèle {{[[Modèle:Palette %s|Palette %s]]}} [[Aide:Palette de navigation|(aide)]]', nomPalette, nomPalette ) 	end  	local function _paletteEnDouble ( i ) 		categories.paletteEnDouble = categoriePaletteEnDouble 		return "" -- inutile d'afficher une erreur visible pour ce cas puisque la mise en page n'est pas cassée 	end 	 	local function _paletteAvecParametres( i ) 		local argsPalette = { } 		for n, v in pairs( parentArgs ) do 			if not tonumber(n) then 				if n:match( ' ' .. i .. '$' ) then 					argsPalette[ n:sub(1, n:len() - 1 - tostring(i):len() ) ] = v 				elseif n == 'nocat' .. i then 					argsPalette.nocat = v 				elseif not argsPalette[n] and n ~= 'stylecorps' then 					argsPalette[n] = v					 				end 			end 		end 		return frame:expandTemplate{ title = 'Palette ' .. mw.text.trim(parentArgs[i]), args = argsPalette } 	end 	 	local function _tropDePalettes() 		categories.tropDePalette = categorieTropDePalette 		return _erreur( 'Erreur dans le [[Modèle:Palette]] : trop de palettes (maximum : %s)', maxPalette ) 	end  	 	 	local boite = parentArgs['titre boîte déroulante'] or parentArgs['titre boite déroulante'] 	if boite then 		wikiTable[1] = '<div class="NavFrame navbox_group" style="clear:both;" >\n' 			.. '<div class="NavHead" style="text-align:center; height:1.6em; background-color:' 			.. ( parentArgs.couleurFondT or '#CCF' ) 			.. '; color:' .. ( parentArgs.couleurTexteT or 'black' ) .. ';">' 			.. boite 			.. '</div>\n<div class="NavContent" style="margin-top:2px;">\n' 	end 	local i = 1 	 	while parentArgs[i] and i <= maxPalette  do 		if parentArgs[i]:match( '%S' ) then 			local j  			for j = 1, i - 1 do 			    if args[i] == args[j] and not args[i]:match('^palette ') then 					wikiTable:insert ( _paletteEnDouble(i)) 				end 			end 			if parentArgs[i]:match( '<table class="navbox' ) or parentArgs[i]:match( '{| ?class="navbox' ) then 				wikiTable:insert( parentArgs[i] ) 			else 				local codePalette = args[i]   				local testCodePalette = codePalette:lower() 				if testCodePalette:match( '^%[%[:modèle:' ) then                  -- La palette n'existe pas 					wikiTable:insert( _paletteInconnue( i ) ) 				elseif testCodePalette:match( '^palette avec paramètres' ) then  -- C'est une palette nécessitant des paramètres nommés 					wikiTable:insert( _paletteAvecParametres( i ) ) 				elseif testCodePalette:match( '^palette verticale avec paramètres' ) then  -- C'est une palette verticale nécessitant des paramètres nommés 					palettesVerticales = palettesVerticales .. ( _paletteAvecParametres( i ) ) 				elseif testCodePalette:match( '^palette verticale' ) then        -- C'est une palette verticale 					palettesVerticales = palettesVerticales .. codePalette:sub( 18 ) 				else 					wikiTable:insert( (codePalette:gsub( '^<div class="navbox_group"', '<div' ) ) ) 				end 			end 		end 		i = i + 1 	end 		 	if i == 1 then 		wikiTable:insert( _pasDePalette() ) 	elseif i > maxPalette and parentArgs[i] and parentArgs[i] ~= '' then 		wikiTable:insert( _tropDePalettes() ) 	end 	if #wikiTable == 1 then 		wikiTable[1] = palettesVerticales 	else 		if boite then 			wikiTable:insert( '</div>' ) 		end 		wikiTable:insert( '</div>' .. palettesVerticales ) 	end 	if mw.title.getCurrentTitle().namespace == 0 then 		for i, v in pairs( categories ) do 			wikiTable:insert( v ) 		end 	end 	 	return wikiTable:concat() end   return Palette