Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Complément (Vba Indenter Interface) V3.1.C Fx3

Inscrivez vous pour télécharger ce fichier
Vue principale Mises à jour (3) Avis (5) Historique Discussion

patricktoulon

XLDnaute Barbatruc
juste pour vous montrer le rendu en html color

HTML: 
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Option&nbsp; Compare&nbsp; Text</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Declare&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>PtrSafe</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Function&nbsp; </B></FONT>FindWindow&nbsp; Lib&nbsp; "user32"&nbsp; Alias&nbsp; "FindWindowA"&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (<FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>lpClassName<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>lpWindowName<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String)<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>LongPtr</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Declare&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>PtrSafe</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Function&nbsp; </B></FONT>SetForegroundWindow&nbsp; Lib&nbsp; "user32"&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (<FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>hwnd<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>LongPtr)<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Long</P>
<P style="COLOR: black; MARGIN: 0px">Public&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Const&nbsp; </B></FONT></B></FONT>Attrib_Done&nbsp; =&nbsp; "þ"</P>
<P style="COLOR: black; MARGIN: 0px">Public&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Const&nbsp; </B></FONT></B></FONT>Coché&nbsp; =&nbsp; "ü"</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Start_Mao()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayFullScreen&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Start_Onkey</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Start_Usf</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[JOUEURS_REGULIERS].Cells(1)&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; APPEL_LISTE</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Start_Usf()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Start_Onkey()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^f",&nbsp; "Start_Usf"<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; ctrl+f&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^s",&nbsp; "Save_Xltm"<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; ctrl+s&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^o",&nbsp; "Svg_Stop"<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; ctrl+o&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Svg_Start</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Close_Mao()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ThisWorkbook.BuiltinDocumentProperties("Comments")&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^f"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^s"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.OnKey&nbsp; "^o"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Svg_Stop</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Svg_Clean()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; N&nbsp; =&nbsp; 15<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; garde&nbsp; n&nbsp; jours&nbsp; max&nbsp; de&nbsp; sauvegardes&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Mdate&nbsp; =&nbsp; Date&nbsp; -&nbsp; N</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; CreateObject("Scripting.FileSystemObject")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; SVG<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>Fso.getfolder(ThisWorkbook.Names("Svg_Dir").RefersToRange).subfolders</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Mdate&nbsp; &gt;&nbsp; SVG.datecreated&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; SVG.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Svg_Stop()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Resume</B></FONT></B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ThisWorkbook</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>IsDate(.Names("Svg_Next").RefersToRange)&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.OnTime&nbsp; .Names("Svg_Next").RefersToRange,&nbsp; "Svg_Run",&nbsp; ,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Names("Svg_Next").RefersToRange.ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Svg_Start()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ThisWorkbook</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>.Names("Svg_Intvl").RefersToRange&nbsp; &lt;=&nbsp; 0<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; ne&nbsp; lance&nbsp; pas&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>IsDate(.Names("Svg_Next").RefersToRange)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; t&nbsp; =&nbsp; TimeValue("00:"&nbsp; &amp;&nbsp; Format(.Names("Svg_Intvl").RefersToRange,&nbsp; "00")&nbsp; &amp;&nbsp; ":00")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Names("Svg_Next").RefersToRange&nbsp; =&nbsp; Now&nbsp; +&nbsp; t<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Toutes&nbsp; les&nbsp; Svg_Intvl&nbsp; minutes&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.OnTime&nbsp; .Names("Svg_Next").RefersToRange,&nbsp; "Svg_Run"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Svg_Run()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>SVG<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String,&nbsp; Target<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ThisWorkbook</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>IsDate(.Names("Svg_Next").RefersToRange)&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; Dir(.Names("Svg_Dir").RefersToRange,&nbsp; vbDirectory)&nbsp; =&nbsp; "":&nbsp; Get_Folder_Svg:&nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Target&nbsp; =&nbsp; .Names("Svg_Dir").RefersToRange&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; .Names("Suffixe").RefersToRange&nbsp; &amp;&nbsp; "&nbsp; "&nbsp; &amp;&nbsp; Format(.Names("Date_Concours").RefersToRange,&nbsp; "dd-mm-yyyy")&nbsp; &amp;&nbsp; "\"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Dir(Target)&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; MkDir&nbsp; Target</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SVG&nbsp; =&nbsp; Target&nbsp; &amp;&nbsp; Format(Now,&nbsp; "hh_mm")&nbsp; &amp;&nbsp; ".xlsm"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>SVG&nbsp; =&nbsp; ThisWorkbook.FullName&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ActiveWorkbook.Save</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [E1].Value&nbsp; =&nbsp; [E1].Value<FONT class=comm color=green &nbsp;>&nbsp; 'FIGER&nbsp; la&nbsp; date&nbsp; d'AUJOURDHUI&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [a1].Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayAlerts&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .SaveAs&nbsp; Filename:=SVG,&nbsp; FileFormat:=xlOpenXMLWorkbookMacroEnabled</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayAlerts&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>IsDate(.Names("Svg_Next").RefersToRange)&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; .Names("Svg_Next").RefersToRange.ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Start_Onkey</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Save_Xltm()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayAlerts&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Inscrip").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; CreateObject("Scripting.FileSystemObject")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Filename<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Variant</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Dlg&nbsp; =&nbsp; Application.FileDialog(msoFileDialogFilePicker)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Dlg</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .AllowMultiSelect&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Title&nbsp; =&nbsp; "Dossier&nbsp; de&nbsp; Lancement&nbsp; (XLTM)"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .InitialFileName&nbsp; =&nbsp; [Root]&nbsp; &amp;&nbsp; "*.xltm"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Filters.Clear</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Filters.Add&nbsp; "Fichier&nbsp; de&nbsp; lancement",&nbsp; "*.xltm"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.Show&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DEVERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [E1].FormulaR1C1&nbsp; =&nbsp; "=TODAY()"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RAZ&nbsp; vbYes</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cur_File&nbsp; =&nbsp; ThisWorkbook.FullName</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; xlt_file&nbsp; =&nbsp; .SelectedItems(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ThisWorkbook.SaveAs&nbsp; Filename:=xlt_file,&nbsp; FileFormat:=xlOpenXMLTemplateMacroEnabled</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Wb_Xlt&nbsp; =&nbsp; ActiveWorkbook</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; d&nbsp; =&nbsp; InStrRev(xlt_file,&nbsp; "\")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; Mid(xlt_file,&nbsp; d&nbsp; +&nbsp; 1)&nbsp; &amp;&nbsp; vbTab&nbsp; &amp;&nbsp; "Saved&nbsp; Err="&nbsp; &amp;&nbsp; Err.Number,&nbsp; vbOKOnly&nbsp; +&nbsp; vbInformation,&nbsp; Left(xlt_file,&nbsp; d&nbsp; -&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Workbooks.<FONT class=blue color=#2980b9 &nbsp;><B>Open&nbsp; </B></FONT>Cur_File<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; ré-ouvre&nbsp; le&nbsp; classeur&nbsp; avant&nbsp; la&nbsp; copie&nbsp; modèle&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Wb_Xlt<FONT class=blue color=#2980b9 &nbsp;><B>.Close</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Dlg&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayAlerts&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Print_Preview()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>S_Ad<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; S_Ad&nbsp; =&nbsp; Application.DisplayFullScreen</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayFullScreen&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Hide</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.SelectedSheets.PrintPreview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.DisplayFullScreen&nbsp; =&nbsp; S_Ad</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Effacer()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; Worksheets("Inscrip").Rows(4).Find("Tour&nbsp; "&nbsp; &amp;&nbsp; [Tour])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; colonne&nbsp; =&nbsp; R.Column</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Joueur<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>[Equipes].Rows(1).Cells<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; les&nbsp; rows&nbsp; sont&nbsp; mergées&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Joueur&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [TRI_RESU].Columns(1).Find(Joueur)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Inscrip").Cells(R.Row,&nbsp; colonne).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Equipes].Parent.Charge_Cbx_Text</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; TRI_RESU_P_GAGNEES()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("ATTENTION&nbsp; :"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Cette&nbsp; étape&nbsp; nécessite&nbsp; d'avoir&nbsp; enregistré"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "TOUS&nbsp; LES&nbsp; RESULTATS&nbsp; de&nbsp; TOUS&nbsp; les&nbsp; tours&nbsp; de&nbsp; jeu&nbsp; "&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "(voir&nbsp; feuille<FONT class=comm color=green &nbsp;>&nbsp; 'NOTER&nbsp; 1&nbsp; RESULTAT'&nbsp; en&nbsp; E3&nbsp; à&nbsp; H3)."&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; UCase("AVEZ-VOUS&nbsp; ENREGISTRé&nbsp; TOUS&nbsp; LES&nbsp; RESULTATS&nbsp; ?"),&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vbCritical&nbsp; +&nbsp; vbYesNo,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "VALIDER&nbsp; pour&nbsp; CONTINUER.")&nbsp; =&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Svg_Run<FONT class=comm color=green &nbsp;>&nbsp; 'svg,&nbsp; AVANT&nbsp; TRI,&nbsp; forcée&nbsp; par&nbsp; sécurité&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [R23]&nbsp; =&nbsp; 1<FONT class=comm color=green &nbsp;>&nbsp; 'en&nbsp; jaune&nbsp; si&nbsp; =1&nbsp; car&nbsp; le&nbsp; tri&nbsp; a&nbsp; été&nbsp; fait&nbsp; ==&gt;&nbsp; les&nbsp; N°&nbsp; sont&nbsp; le&nbsp; classement&nbsp; :&nbsp; voir&nbsp; variable&nbsp; trié§&nbsp; =&nbsp; _(avant_tri)&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Reference:="TRI_RESU"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; DEVERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [TRI_RESU].Resize([NBJR]).Sort&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key1:=Range("L5"),&nbsp; Order1:=xlDescending,&nbsp; DataOption1:=xlSortTextAsNumbers,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key2:=Range("P5"),&nbsp; Order2:=xlDescending,&nbsp; DataOption2:=xlSortNormal,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key3:=Range("D5"),&nbsp; Order3:=xlAscending,&nbsp; DataOption3:=xlSortNormal,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Header:=xlNo,&nbsp; OrderCustom:=1,&nbsp; Match<FONT class=blue color=#2980b9 &nbsp;><B>Case:</B></FONT>=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; Orientation:=xlTopToBottom</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; VERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("A1").Select</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; IMPRIMER_RESU()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Const&nbsp; </B></FONT></B></FONT>Delim&nbsp; =&nbsp; vbTab</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; CADRER_INSCRIP</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; DEVERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; rajoute&nbsp; le&nbsp; n°&nbsp; de&nbsp; mobile&nbsp; en&nbsp; commentaire&nbsp; au&nbsp; nom&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; [TRI_RESU].Find("*",&nbsp; ,&nbsp; xlComments)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>s_address&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; s_address&nbsp; =&nbsp; C.Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C.Value&nbsp; =&nbsp; C.Value&nbsp; &amp;&nbsp; Delim&nbsp; &amp;&nbsp; C.Comment.Text</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; [TRI_RESU].Find("*",&nbsp; C,&nbsp; xlComments)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>C.Address&nbsp; =&nbsp; s_address&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ActiveSheet.PageSetup.PrintArea&nbsp; =&nbsp; "$B$1:$Q$135"<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; =&nbsp; Zone&nbsp; "IMPRIM_RESULTAT"&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ActiveSheet.PageSetup</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterHorizontally&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterVertically&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Orientation&nbsp; =&nbsp; xlPortrait</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Zoom&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .FitToPagesWide&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .FitToPagesTall&nbsp; =&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Usf_Mao_Ds.Visible&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Usf_Mao_Ds.Hide</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Print_Preview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; enlève&nbsp; le&nbsp; n°&nbsp; de&nbsp; mobile&nbsp; en&nbsp; commentaire&nbsp; au&nbsp; nom&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; [TRI_RESU].Find("*",&nbsp; ,&nbsp; xlComments)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; s_address&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>s_address&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; s_address&nbsp; =&nbsp; C.Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C.Value&nbsp; =&nbsp; Split(C.Value,&nbsp; Delim)(0)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; [TRI_RESU].Find("*",&nbsp; C,&nbsp; xlComments)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>C.Address&nbsp; =&nbsp; s_address&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>C&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Range("A1").Select </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; VERROU</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Imp_Tirage(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>Plage)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>IsMissing(Plage)&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Plage_List&nbsp; =&nbsp; Array("*",&nbsp; [C28],&nbsp; [I28],&nbsp; [O28],&nbsp; [U28])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; N&nbsp; =&nbsp; Split(Application.Caller,&nbsp; "_")(2)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>N&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Plage&nbsp; =&nbsp; Plage_List(N)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>N&nbsp; =&nbsp; 1<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>4</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Imp_Tirage&nbsp; Plage_List(N)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Text<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>I<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; LC<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; LR<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; F_Chiffres&nbsp; =&nbsp; 60</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; F_Noms&nbsp; =&nbsp; 40</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; F_Cadres&nbsp; =&nbsp; 30</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; F_Color&nbsp; =&nbsp; Cells(8,&nbsp; Plage.Column).Interior.Color</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; Columns(Plage.Column).Rows(Rows.Count).End(xlUp)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Plage&nbsp; =&nbsp; Range(Plage,&nbsp; R).Resize(,&nbsp; 6)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Resume</B></FONT></B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("ImpMao").Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Err()&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name&nbsp; =&nbsp; "ImpMao"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("ImpMao").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.Zoom&nbsp; =&nbsp; 55</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Plage.Copy</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("D1").PasteSpecial&nbsp; xlPasteValues</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Selection.Interior.Color&nbsp; =&nbsp; F_Color</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Selection.HorizontalAlignment&nbsp; =&nbsp; xlCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Selection.Borders(xlInsideVertical).LineStyle&nbsp; =&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; 0</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells.Font.Name&nbsp; =&nbsp; "Segoe&nbsp; UI"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells.Font.Size&nbsp; =&nbsp; F_Chiffres</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells.VerticalAlignment&nbsp; =&nbsp; xlCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Columns("A").Cells(1)<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Colonne&nbsp; Terrain&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Value&nbsp; =&nbsp; "Terrain"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Size&nbsp; =&nbsp; F_Cadres</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .VerticalAlignment&nbsp; =&nbsp; xlBottom</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>Array("B",&nbsp; "K")<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; colonnes&nbsp; Noms&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Columns(C)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .ColumnWidth&nbsp; =&nbsp; 200</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Size&nbsp; =&nbsp; F_Noms</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .HorizontalAlignment&nbsp; =&nbsp; xlRight</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>Array("C",&nbsp; "J")<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; colonnes&nbsp; Score&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Columns(C).Cells(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Value&nbsp; =&nbsp; "Score"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Size&nbsp; =&nbsp; F_Cadres</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .VerticalAlignment&nbsp; =&nbsp; xlBottom</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; LR&nbsp; =&nbsp; ActiveSheet.UsedRange.Rows.Count</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; LC&nbsp; =&nbsp; Columns("K").Column</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells(1,&nbsp; 1).Resize(,&nbsp; LC).Borders(xlEdgeBottom).LineStyle&nbsp; =&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("A2:A"&nbsp; &amp;&nbsp; LR).Borders(xlEdgeLeft).LineStyle&nbsp; =&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>I&nbsp; =&nbsp; LR<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>2&nbsp; Step&nbsp; -1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; If I&nbsp; =&nbsp; 3&nbsp; then&nbsp; Stop&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>Cells(I,&nbsp; 4)&nbsp; Like&nbsp; "Blanc*"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cells(I,&nbsp; 6)&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Joueurs&nbsp; I,&nbsp; 4,&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 9).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 4).Resize(,&nbsp; 2).Merge</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 4)&nbsp; =&nbsp; "Blanc:"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 1).Resize(,&nbsp; LC).Borders(xlEdgeBottom).LineStyle&nbsp; =&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 4).EntireRow.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>Cells(I,&nbsp; 4)&nbsp; &gt;&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Joueurs&nbsp; I,&nbsp; 4,&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Joueurs&nbsp; I,&nbsp; 7,&nbsp; 11</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 1).Resize(,&nbsp; LC).Borders(xlEdgeBottom).LineStyle&nbsp; =&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; 4).EntireRow.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; LR&nbsp; =&nbsp; ActiveSheet.UsedRange.Rows.Count</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Range("D1:I"&nbsp; &amp;&nbsp; LR)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .BorderAround&nbsp; xlContinuous,&nbsp; xlThick</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .Rows(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Merge</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .HorizontalAlignment&nbsp; =&nbsp; xlCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .BorderAround&nbsp; xlContinuous,&nbsp; xlThick</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Bold&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("G").Insert&nbsp; Shift:=xlToRight</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Columns("G")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Pattern&nbsp; =&nbsp; xlNone</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .ColumnWidth&nbsp; =&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>WorksheetFunction.CountA([J:J])&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Columns("J").ColumnWidth&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>WorksheetFunction.CountA([F:F])&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Columns("F").ColumnWidth&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("A:D").Columns.AutoFit</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("K:L").Columns.AutoFit</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [A1:L1].Interior.Color&nbsp; =&nbsp; F_Color</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.PrintCommunication&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ActiveSheet.PageSetup</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .PrintArea&nbsp; =&nbsp; "A1:L"&nbsp; &amp;&nbsp; LR</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .PrintTitleRows&nbsp; =&nbsp; "R1"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .LeftMargin&nbsp; =&nbsp; 10:&nbsp; .RightMargin&nbsp; =&nbsp; 10</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TopMargin&nbsp; =&nbsp; 10:&nbsp; .BottomMargin&nbsp; =&nbsp; 10</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .HeaderMargin&nbsp; =&nbsp; 0:&nbsp; .FooterMargin&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .PrintHeadings&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>:&nbsp; .PrintGridlines&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>:&nbsp; .PrintComments&nbsp; =&nbsp; xlPrintNoComments</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterHorizontally&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT>:&nbsp; .CenterVertically&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Orientation&nbsp; =&nbsp; xlPortrait:&nbsp; .PaperSize&nbsp; =&nbsp; xlPaperA4</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .FitToPagesWide&nbsp; =&nbsp; 1:&nbsp; .FitToPagesTall&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.PrintCommunication&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Usf_Mao_Ds.Visible&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Usf_Mao_Ds.Hide</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Print_Preview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Tirages").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("ImpMao").Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Set_Joueurs(I<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; J<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; K<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Text<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Found<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Text&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>J&nbsp; =&nbsp; J&nbsp; +&nbsp; 2<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>J&nbsp; Step&nbsp; -1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Val(Cells(I,&nbsp; J))&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Found&nbsp; =&nbsp; [TRI_RESU].Columns(1).Find(Cells(I,&nbsp; J),&nbsp; ,&nbsp; xlValues,&nbsp; xlByRows)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text&nbsp; =&nbsp; Found.Offset(,&nbsp; 2)&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; Text</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Found.Offset(,&nbsp; 3)&nbsp; =&nbsp; "F"&nbsp; then&nbsp; Stop&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Found.Offset(,&nbsp; 3)&nbsp; =&nbsp; "F"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cells(I,&nbsp; J).Interior.Color&nbsp; =&nbsp; 16764159<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Femme&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; J).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; On Error ResumeNext&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; K)&nbsp; =&nbsp; Application.WorksheetFunction.Proper(Left(Text,&nbsp; Len(Text)&nbsp; -&nbsp; 1))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells(I,&nbsp; K).BorderAround&nbsp; xlContinuous</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; EnEvents()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Events="&nbsp; &amp;&nbsp; Application.EnableEvents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Enlever_Filtre()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Tbx_Régulier&nbsp; =&nbsp; vbNullString</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Inscrip_Change(<FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>Target<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Cell<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Cell<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>Target.Cells</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>Cell.Address&nbsp; =&nbsp; Worksheets("Inscrip").[Svg_Intvl].Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Svg_Stop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Svg_Next].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Svg_Start</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [Zone_Payé])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'If Cell&nbsp; &lt;&gt;&nbsp; vbNullString&nbsp; then&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nbg&nbsp; =&nbsp; Val(Cell.Offset(,&nbsp; -5))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; Cell.Offset(,&nbsp; -5)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>"":&nbsp; Cell&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>0:&nbsp; Cell&nbsp; =&nbsp; Chr(150)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT>:&nbsp; Cell&nbsp; =&nbsp; Chr(145)&nbsp; &amp;&nbsp; nbg</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Characters(Start:=2,&nbsp; Length:=1).Font.Name&nbsp; =&nbsp; "Calibri"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.ShrinkToFit&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.HorizontalAlignment&nbsp; =&nbsp; xlGeneral</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.VerticalAlignment&nbsp; =&nbsp; xlBottom</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.WrapText&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'End If&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; Worksheets("Inscrip").[d2])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Target.Count&nbsp; =&nbsp; 1<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Formule&nbsp; de&nbsp; jeu&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VALIDER_formule</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [A_inscrire_si_1])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Tirage_Done]&nbsp; =&nbsp; "Ok"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Le&nbsp; tirage&nbsp; a&nbsp; été&nbsp; fait"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Voulez-vous&nbsp; le&nbsp; casser&nbsp; ?",&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vbCritical&nbsp; +&nbsp; vbQuestion&nbsp; +&nbsp; vbYesNo)&nbsp; =&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Tirage_Done]&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Attrib]&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell&nbsp; =&nbsp; IIf(Cell&nbsp; =&nbsp; Coché,&nbsp; "",&nbsp; Coché)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>For</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cell&nbsp; &lt;&gt;&nbsp; ""<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Cell&nbsp; &lt;&gt;&nbsp; Coché&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cell&nbsp; =&nbsp; Coché</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [Ordre_Liste])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Target.Count&nbsp; =&nbsp; 1<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Formule&nbsp; de&nbsp; jeu&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Target&nbsp; =&nbsp; vbNullString&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Application.Un<FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>_</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT>&nbsp; Tri_Joueurs_Reguliers</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [Joueurs_en_D5].Columns(1).Cells)<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Un&nbsp; joueur&nbsp; en&nbsp; zone&nbsp; D5&nbsp; a&nbsp; été&nbsp; modifié&nbsp; manuellement&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cell&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; 'Joueur&nbsp; supprimé&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Cell.Comment<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cell.Comment.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(,&nbsp; 1).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Le&nbsp; joueur&nbsp; a&nbsp; été&nbsp; supprimé,&nbsp; on&nbsp; doit&nbsp; remonter&nbsp; tous&nbsp; les&nbsp; suivants&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cell.Offset(1)&nbsp; &lt;&gt;&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(1).Resize(,&nbsp; 2).Copy</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.PasteSpecial&nbsp; xlPasteValues</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.PasteSpecial&nbsp; xlPasteComments</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(1).Resize(,&nbsp; 2).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set R&nbsp; =&nbsp; [Joueurs_Reguliers].Find(Old_Man,&nbsp; ,&nbsp; xlValues,&nbsp; xlWhole)&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not RIs Nothing&nbsp; then&nbsp; R.Offset(,&nbsp; -2)&nbsp; =&nbsp; ""&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; InStr(Cell.Value,&nbsp; "&nbsp; "):&nbsp; Cell.Value&nbsp; =&nbsp; Replace(Cell.Value,&nbsp; "&nbsp; ",&nbsp; ""):&nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Value&nbsp; =&nbsp; Trim(Replace(StrConv(Replace(Cell.Value,&nbsp; "-",&nbsp; "-&nbsp; "),&nbsp; vbProperCase),&nbsp; "-&nbsp; ",&nbsp; "-"))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [Joueurs_en_D5].Find(Cell.Value,&nbsp; ,&nbsp; xlValues,&nbsp; xlWhole,&nbsp; xlByColumns,&nbsp; xlNext,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; 'le&nbsp; joueur&nbsp; entré&nbsp; est&nbsp; enDouble&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>R.Address&nbsp; &lt;&gt;&nbsp; Cell.Address&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; Cell.Value&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; "&nbsp; est&nbsp; déjà&nbsp; inscrit",&nbsp; vbExclamation&nbsp; +&nbsp; vbOKOnly</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>For</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [JOUEURS_REGULIERS].Columns(1).Find(Cell.Value,&nbsp; ,&nbsp; xlValues,&nbsp; xlWhole,&nbsp; xlByColumns,&nbsp; xlNext,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; le&nbsp; nom&nbsp; entré&nbsp; est&nbsp; un&nbsp; joueur&nbsp; régulier&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; R.Offset(,&nbsp; -2)&nbsp; =&nbsp; Coché</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(,&nbsp; 1)&nbsp; =&nbsp; R.Offset(,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; Cell.Value&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; "&nbsp; est&nbsp; un&nbsp; joueur&nbsp; régulier",&nbsp; vbInformation&nbsp; +&nbsp; vbOKOnly</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Cell.Comment<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cell.Comment.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; joueur&nbsp; externe&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DEVERROU<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Indispensable&nbsp; pour&nbsp; ajouter&nbsp; un&nbsp; commentaire&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cell.Comment<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cell.AddComment</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mobile&nbsp; =&nbsp; InputBox("N°&nbsp; de&nbsp; Mobile&nbsp; ou&nbsp; de&nbsp; Licence&nbsp; :",&nbsp; "Joueur&nbsp; externe&nbsp; "&nbsp; &amp;&nbsp; Cell,&nbsp; Cell.Comment.Text)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Comment.Text&nbsp; IIf(mobile&nbsp; =&nbsp; "",&nbsp; "Externe",&nbsp; mobile)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Comment.Shape.TextFra<FONT class=blue color=#2980b9 &nbsp;><B>Me.</B></FONT>AutoSize&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(,&nbsp; 1)&nbsp; =&nbsp; "M"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; L&nbsp; =&nbsp; Application.WorksheetFunction.CountA([Joueurs_en_D5].Columns(1))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Joueurs_en_D5].SpecialCells(xlCell<FONT class=blue color=#2980b9 &nbsp;><B>Type</B></FONT>Visible).Rows.Count&nbsp; =&nbsp; L&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; [Joueurs_en_D5].RowHeight&nbsp; =&nbsp; 28.5</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [JOUEURS_REGULIERS])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Target.Count&nbsp; =&nbsp; 1&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Application.Undo</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Intersect(Cell,&nbsp; [A_inscrire_si_1])<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Target.Count&nbsp; =&nbsp; 1<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Cell.Offset(,&nbsp; 2)&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Application.Undo</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'Sub&nbsp; AJOUTER_NOM()</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'Dim LigAs Integer</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'If Trim([D4])&nbsp; &lt;&gt;&nbsp; vbNullString&nbsp; then</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; [Joueurs_En_d5].Row</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; Lig&nbsp; =&nbsp; [NBJR]&nbsp; +&nbsp; 5<FONT class=comm color=green &nbsp;>&nbsp; '1ère&nbsp; ligne&nbsp; libre&nbsp; </FONT></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; If Lig&nbsp; &gt;=&nbsp; 30&nbsp; then&nbsp; AJOUTER_JRS</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; Range("D"&nbsp; &amp;&nbsp; Lig)&nbsp; =&nbsp; [D4]</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; Set F&nbsp; =&nbsp; [Joueurs_reguliers].Columns(1).Find([D4],&nbsp; ,&nbsp; xlValues)</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; If Not FIs Nothing&nbsp; then</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range("E"&nbsp; &amp;&nbsp; Lig)&nbsp; =&nbsp; F.Offset(0,&nbsp; 1)</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; Else</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mobile&nbsp; =&nbsp; InputBox("N°&nbsp; de&nbsp; Mobile:")</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range("D"&nbsp; &amp;&nbsp; Lig).AddComment&nbsp; mobile</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range("D"&nbsp; &amp;&nbsp; Lig).Comment.Shape.TextFraMe.AutoSize&nbsp; =&nbsp; True</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range("E"&nbsp; &amp;&nbsp; Lig).Select</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Selection.Value&nbsp; =&nbsp; "M"</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; End If</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; [D4].ClearContents</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; VERROU</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'End If</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'End Sub</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'Sub&nbsp; AJOUTER_JRS()</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_En_d5].RowHeight&nbsp; =&nbsp; 28.5</FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=comm color=green &nbsp;>'End Sub</FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; ATTRIB_NUM()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Title<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("INSCRIP").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>ActiveSheet.FilterMode&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Enlever_Filtre</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; REPORT_DES_NOMS_AVEC_1<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; on&nbsp; force&nbsp; ce&nbsp; report&nbsp; car&nbsp; l'ordre&nbsp; a&nbsp; pu&nbsp; changer&nbsp; entre&nbsp; temps&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>Application.WorksheetFunction.CountA([Joueurs_en_D5].Columns(1))&nbsp; &lt;&nbsp; 8<FONT class=comm color=green &nbsp;>&nbsp; '12&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Trop&nbsp; peu&nbsp; de&nbsp; joueurs&nbsp; pour&nbsp; un&nbsp; tirage&nbsp; efficace",&nbsp; vbCritical&nbsp; +&nbsp; vbOKOnly</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>[Attrib]</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("L'affectation&nbsp; des&nbsp; N°&nbsp; est&nbsp; déjà&nbsp; faite&nbsp; !"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "(à&nbsp; refaire&nbsp; si&nbsp; un&nbsp; nom&nbsp; a&nbsp; été&nbsp; rajouté)"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Voulez-vous&nbsp; refaire&nbsp; l'attribution&nbsp; ?",&nbsp; vbExclamation&nbsp; +&nbsp; vbYesNo,&nbsp; "Attribution")&nbsp; =&nbsp; vbNo&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Attrib]&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Title&nbsp; =&nbsp; "VALIDER&nbsp; pour&nbsp; CONTINUER"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Formule]&nbsp; =&nbsp; 2&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; 'casDoublettes&nbsp; maximoises&nbsp; :&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Range("S3")&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; 'casDoublettes&nbsp; maximoises&nbsp; et&nbsp; trop&nbsp; de&nbsp; Femmes&nbsp; :&nbsp; CAS=0&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox(Range("T4")&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; "&nbsp; OK&nbsp; ?&nbsp; ",&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vbQuestion&nbsp; &amp;&nbsp; vbYesNo)&nbsp; &lt;&gt;&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Préparation&nbsp; de&nbsp; la&nbsp; liste&nbsp; des&nbsp; équipes&nbsp; :"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Voulez-vous&nbsp; donner&nbsp; aux&nbsp; équipes&nbsp; un&nbsp; N°&nbsp; "&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "DIFFERENT&nbsp; de&nbsp; celui&nbsp; de&nbsp; l'ORDRE&nbsp; D'INSCRIPTION&nbsp; ?"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Répondre&nbsp; NON&nbsp; si&nbsp; étiquettes&nbsp; déjà&nbsp; distribuées.",&nbsp; vbQuestion&nbsp; +&nbsp; vbYesNo,&nbsp; Title)&nbsp; &lt;&gt;&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Listes</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Tirage_Done].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Tours_Resultats].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Noter&nbsp; 1&nbsp; RESULTAT").Cbx_Noms.Clear</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [TRI_noms].Sort&nbsp; Key1:=Range("C5"),&nbsp; Order1:=xlAscending,&nbsp; Header:=xlNo,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; OrderCustom:=1,&nbsp; Match<FONT class=blue color=#2980b9 &nbsp;><B>Case:</B></FONT>=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; Orientation:=xlTopToBottom,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DataOption1:=xlSortNormal</P>
<P style="COLOR: black; MARGIN: 0px">Listes:</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; on&nbsp; masque&nbsp; les&nbsp; colonnes&nbsp; C&nbsp; et&nbsp; G&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("C").Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("G").Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Attrib]&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '******************&nbsp; transfert&nbsp; en&nbsp; fixe&nbsp; +&nbsp; tri&nbsp; num&nbsp; puis&nbsp; copie&nbsp; pour&nbsp; TRI&nbsp; alpha&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Copy:&nbsp; [AL5].PasteSpecial&nbsp; Paste:=xlPasteValues</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [AK5].Resize([Joueurs_en_D5].Rows.Count,&nbsp; 2).Copy:&nbsp; [AC5].PasteSpecial&nbsp; Paste:=xlPasteValues</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.CutCopyMode&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Tri&nbsp; des&nbsp; Noms&nbsp; de&nbsp; la&nbsp; liste&nbsp; Alpha&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [AC5].Resize([Joueurs_en_D5].Rows.Count,&nbsp; 2).Sort&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key1:=Range("AD5"),&nbsp; Order1:=xlAscending,&nbsp; DataOption1:=xlSortNormal,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key2:=Range("AC5"),&nbsp; Order2:=xlAscending,&nbsp; DataOption2:=xlSortNormal,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Header:=xlNo,&nbsp; Orientation:=xlTopToBottom</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; Les&nbsp; numéros&nbsp; étant&nbsp; attribués&nbsp; les&nbsp; "NOMS"&nbsp; sont&nbsp; figés&nbsp; et&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; protégés&nbsp; des&nbsp; fausses&nbsp; manoeuvres&nbsp; (sauf&nbsp; si&nbsp; on&nbsp; déverrouille&nbsp; la&nbsp; feuille)&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; [Joueurs_en_D5]</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Locked&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .FormulaHidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show_Repaint</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; DEVERROU(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>Sh<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Worksheet)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; ATTENTION&nbsp; l'unprotect&nbsp; fait&nbsp; perdre&nbsp; le&nbsp; contenu&nbsp; du&nbsp; &nbsp; COPY&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Sh<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Sh&nbsp; =&nbsp; ActiveSheet</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Sh.Unprotect</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Sh&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; VERROU(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>Sh<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Worksheet)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>[NoLock]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Sh<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Sh&nbsp; =&nbsp; ActiveSheet</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sh.Protect&nbsp; DrawingObjects:=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; Contents:=<FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT>,&nbsp; Scenarios:=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; UserInterfaceOnly:=<FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Sh&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Saisir_En_D5(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>Ajouter<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; CADRER_INSCRIP</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>[NBJR]&nbsp; &gt;=&nbsp; 131:&nbsp; MsgBox&nbsp; "Nombre&nbsp; maximum&nbsp; de&nbsp; joueurs&nbsp; atteint",&nbsp; vbCritical&nbsp; +&nbsp; vbOKOnly</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Ajouter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Tirage_Done]&nbsp; =&nbsp; "OK"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Tirage&nbsp; effectué"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Ajouter&nbsp; un&nbsp; joueur&nbsp; quand&nbsp; même&nbsp; ?",&nbsp; vbCritical&nbsp; +&nbsp; vbOKCancel)&nbsp; =&nbsp; vbCancel&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; [Joueurs_en_D5].SpecialCells(xlCell<FONT class=blue color=#2980b9 &nbsp;><B>Type</B></FONT>Blanks).Cells(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Rows.Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Cmd_Add_Click</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Function&nbsp; </B></FONT>Get_File_Liste()<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Dlg&nbsp; =&nbsp; Application.FileDialog(msoFileDialogFilePicker)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Dlg</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .AllowMultiSelect&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Title&nbsp; =&nbsp; "Dossier&nbsp; des&nbsp; Joueurs&nbsp; Habituels"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .InitialFileName&nbsp; =&nbsp; [Dir_Liste]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; [Nom_Liste]&nbsp; &amp;&nbsp; ".xls"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Filters.Clear</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Filters.Add&nbsp; "Liste(s)&nbsp; des&nbsp; joueurs",&nbsp; "*.xls"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Show</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.SelectedItems.Count&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Z&nbsp; =&nbsp; Dir(.SelectedItems(1))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Nom_Liste]&nbsp; =&nbsp; Left(Z,&nbsp; InStrRev(Z,&nbsp; ".")&nbsp; -&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Dir_Liste]&nbsp; =&nbsp; Left(.SelectedItems(1),&nbsp; InStrRev(.SelectedItems(1),&nbsp; Application.PathSeparator)&nbsp; -&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_File_Liste&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_File_Liste&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Dlg&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; CADRER_A_INSCRIRE()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; [Zone_Réguliers],&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [A_inscrire_si_1].Cells(1).Activate</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>_NOTER()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>[Attrib]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Les&nbsp; numéros&nbsp; n'ont&nbsp; pas&nbsp; été&nbsp; attribués",&nbsp; vbCritical</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Noter&nbsp; 1&nbsp; RESULTAT").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; VOIR_TABL_N()<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; en&nbsp; provenance&nbsp; de&nbsp; "INSCRIP"&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>[Attrib]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Les&nbsp; numéros&nbsp; n'ont&nbsp; pas&nbsp; été&nbsp; attribués",&nbsp; vbCritical</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Range("E141")&nbsp; &gt;=&nbsp; 1<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>[Attrib]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; 'Fem+Z&gt;=1&nbsp; et&nbsp; TRI&nbsp; déjà&nbsp; fait&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox(Title:="VALIDER&nbsp; pour&nbsp; CONTINUER.",&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Prompt:="Cette&nbsp; étape&nbsp; nécessite&nbsp; d'avoir&nbsp; au&nbsp; préalable&nbsp; cliqué&nbsp; sur<FONT class=comm color=green &nbsp;>&nbsp; 'ATTRIBUER&nbsp; 1&nbsp; N°&nbsp; à&nbsp; chaque&nbsp; joueur'"&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; (par&nbsp; tirage&nbsp; au&nbsp; sort)&nbsp; sinon&nbsp; les&nbsp; N°&nbsp; resteront&nbsp; dans&nbsp; l'ordre&nbsp; des&nbsp; inscriptions"&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; et&nbsp; surtout&nbsp; les&nbsp; informations&nbsp; de&nbsp; la&nbsp; colonne<FONT class=comm color=green &nbsp;>&nbsp; 'SEXE'&nbsp; resteront&nbsp; inefficaces&nbsp; !!!&nbsp; Voulez-vous&nbsp; néanmoins&nbsp; CONTINUER&nbsp; ?"&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ,&nbsp; Buttons:=4)&nbsp; &lt;&gt;&nbsp; 6&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Alors&nbsp; veuillez&nbsp; SVP&nbsp; cliquer&nbsp; sur&nbsp; le&nbsp; bouton<FONT class=comm color=green &nbsp;>&nbsp; '5.&nbsp; ATTRIBUER&nbsp; 1&nbsp; N°&nbsp; ...&nbsp; "&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; puis&nbsp; recommencer&nbsp; votre&nbsp; dernière&nbsp; opération&nbsp; seulement.&nbsp; MERCI."</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Svg_Run<FONT class=comm color=green &nbsp;>&nbsp; 'sauvegarde&nbsp; forcée&nbsp; par&nbsp; sécurité&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">[NT]&nbsp; =&nbsp; Worksheets("INSCRIP").Range("L1")<FONT class=comm color=green &nbsp;>&nbsp; 'transfert&nbsp; du&nbsp; NB&nbsp; JRS&nbsp; en&nbsp; NT&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">Worksheets("Noter&nbsp; 1&nbsp; RESULTAT").Cbx_Noms.Clear</P>
<P style="COLOR: black; MARGIN: 0px">TRANSFERT</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Formule]&nbsp; &lt;&gt;&nbsp; 2&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; MAJ_BLANCS</P>
<P style="COLOR: black; MARGIN: 0px">CADRER_TIRAGES</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Tirage_COL67()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Worksheets("TIRAGES")<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; pour&nbsp; appel&nbsp; depuis&nbsp; INSCRIP&nbsp; bouton&nbsp; 7&nbsp; "vers&nbsp; TOUR&nbsp; de&nbsp; JEU"&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("I:N").ColumnWidth&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("U:Z").ColumnWidth&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("AG:AL").ColumnWidth&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("AS:AX").ColumnWidth&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Tirage_COL131()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Worksheets("TIRAGES")<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; pour&nbsp; appel&nbsp; depuis&nbsp; INSCRIP&nbsp; bouton&nbsp; 7&nbsp; "vers&nbsp; TOUR&nbsp; de&nbsp; JEU"&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("I:N").ColumnWidth&nbsp; =&nbsp; 2.71</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("U:Z").ColumnWidth&nbsp; =&nbsp; 2.71</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("AG:AL").ColumnWidth&nbsp; =&nbsp; 2.71</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns("AS:AX").ColumnWidth&nbsp; =&nbsp; 2.71</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Tmfc()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; DEVERROU<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Nécessaire&nbsp; pour&nbsp; les&nbsp; MFC&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>I&nbsp; =&nbsp; Worksheets("Tirages").Cells.FormatConditions.Count<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>1&nbsp; Step&nbsp; -1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Worksheets("Tirages").Cells.FormatConditions(I)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.Font.Strikethrough&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Debug.Print</B></FONT>&nbsp; .Formula1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; TRANSFERT()<FONT class=comm color=green &nbsp;>&nbsp; '[NT]&nbsp; (de&nbsp; feuille&nbsp; TIRAGES)&nbsp; est&nbsp; supposé&nbsp; alimenté&nbsp; et&nbsp; &gt;=8&nbsp; sinon&nbsp; nn&nbsp; négatIf </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Tirages").Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Tirages").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [TIRAGE_appelé].FormulaR1C1&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("C25")&nbsp; =&nbsp; Range("A22")<FONT class=comm color=green &nbsp;>&nbsp; 'valeur&nbsp; initiale&nbsp; nb&nbsp; Fem&nbsp; mises&nbsp; en&nbsp; relief&nbsp; ?&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '*************&nbsp; CALCUL&nbsp; ADR&nbsp; du&nbsp; tableau&nbsp; à&nbsp; copier&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>nn<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; lig_suppl<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; taille<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer,&nbsp; DECAL_30<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; DECAL_30&nbsp; =&nbsp; IIf(Worksheets("INSCRIP").Range("S3")&nbsp; =&nbsp; 2,&nbsp; 30,&nbsp; 0)<FONT class=comm color=green &nbsp;>&nbsp; 'décalage&nbsp; de&nbsp; 30&nbsp; colonnes&nbsp; pour&nbsp; accéder&nbsp; à&nbsp; la&nbsp; variante&nbsp; en&nbsp; F2&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[NT]&nbsp; &gt;&nbsp; 68<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>[Formule]&nbsp; =&nbsp; 2&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Tirage_COL131&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT>&nbsp; Tirage_COL67</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Tirage_COL131</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[NT]&nbsp; &gt;=&nbsp; 68<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>[Formule]&nbsp; =&nbsp; 2&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lig_suppl&nbsp; =&nbsp; ([NT]&nbsp; -&nbsp; 68)&nbsp; *&nbsp; 16</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; taille&nbsp; =&nbsp; 21&nbsp; +&nbsp; 16</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; lig_suppl&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; taille&nbsp; =&nbsp; 21</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; nn&nbsp; =&nbsp; 22&nbsp; *&nbsp; [NT]&nbsp; -&nbsp; 176&nbsp; +&nbsp; lig_suppl</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '*************&nbsp; FIN&nbsp; du&nbsp; CALCUL&nbsp; ADR&nbsp; du&nbsp; tableau&nbsp; à&nbsp; copier&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Comme&nbsp; on&nbsp; va&nbsp; copier&nbsp; toute&nbsp; une&nbsp; plage&nbsp; du&nbsp; fichier&nbsp; des&nbsp; tables,&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; les&nbsp; MFC&nbsp; en&nbsp; cours&nbsp; risquent&nbsp; d'être&nbsp; découpées&nbsp; au&nbsp; profit&nbsp; de&nbsp; celles&nbsp; de&nbsp; la&nbsp; plage&nbsp; copiée&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; les&nbsp; détruit&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; DEVERROU<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Nécessaire&nbsp; pour&nbsp; les&nbsp; MFC&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; For I&nbsp; =&nbsp; Worksheets("Tirages").Cells.FormatConditions.CountTo 1&nbsp; Step&nbsp; -1&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With&nbsp; Worksheets("Tirages").Cells.FormatConditions(I)&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If .Font.Strikethrough&nbsp; then&nbsp; .Delete&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; Next&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '******************ouverture&nbsp; fichier&nbsp; TABLE&nbsp; concernée&nbsp; et&nbsp; copy&nbsp; :&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; CreateObject("Scripting.FileSystemObject")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Fso.FolderExists([Dir_Tables])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_Folder_Tables</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Workbooks.Open(Filename:=[Dir_Tables]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; [Nom_TABLE],&nbsp; ReadOnly:=<FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("F2").Range(Cells(1&nbsp; +&nbsp; nn,&nbsp; 1&nbsp; +&nbsp; DECAL_30),&nbsp; Cells(taille&nbsp; +&nbsp; nn,&nbsp; 26&nbsp; +&nbsp; DECAL_30)).Copy</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ThisWorkbook.Worksheets("Tirages").Range("A27").PasteSpecial&nbsp; xlPasteAll&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ThisWorkbook.Worksheets("Tirages").Range("A27").PasteSpecial&nbsp; xlPasteFormulas</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.CutCopyMode&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>.Close</B></FONT>&nbsp; SaveChanges:=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'supprimer&nbsp; lignes&nbsp; 5&nbsp; et/ou&nbsp; 6&nbsp; et/ou&nbsp; 7&nbsp; inutiles&nbsp; car&nbsp; VIDES&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Range("E5")&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Rows(5).RowHeight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Range("C6")&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Rows(6).RowHeight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Range("C7")&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Rows(7).RowHeight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; reconstitue&nbsp; les&nbsp; MFC&nbsp; pour&nbsp; le&nbsp; suivi&nbsp; des&nbsp; parties&nbsp; terminées&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Tirages").Mfc_TIRAGES</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; DEVERROU<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Nécessaire&nbsp; pour&nbsp; les&nbsp; MFC&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; On Error ResumeNext&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; Pl&nbsp; =&nbsp; Array("C30",&nbsp; "I30",&nbsp; "O30",&nbsp; "U30")&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; L&nbsp; =&nbsp; [Tour_1].Rows.Count&nbsp; -&nbsp; 2&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; For I&nbsp; =&nbsp; 0To Ubound(Pl)&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; f&nbsp; =&nbsp; "RECHERCHEV("&nbsp; &amp;&nbsp; Pl(I)&nbsp; &amp;&nbsp; ";TRI_RESU;"&nbsp; &amp;&nbsp; I&nbsp; +&nbsp; 7&nbsp; &amp;&nbsp; ")"&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With&nbsp; Range(Pl(I)).Resize(L,&nbsp; 6).FormatConditions.Add(Type:=xlExpression,&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Formula1:="=OU("&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; "=""G"";SI(ESTNUM("&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; ");"&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; "&gt;0;FAUX))")&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Strikethrough&nbsp; =&nbsp; True&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Color&nbsp; =&nbsp; vbRed&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Color&nbsp; =&nbsp; 14277081&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .StopIfTrue&nbsp; =&nbsp; False&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .SetFirstPriority&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; With&nbsp; Range(Pl(I)).Resize(L,&nbsp; 6).FormatConditions.Add(Type:=xlExpression,&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Formula1:="=OU("&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; "=""P"";SI(ESTNUM("&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; ");"&nbsp; &amp;&nbsp; f&nbsp; &amp;&nbsp; "&lt;0;FAUX))")&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Strikethrough&nbsp; =&nbsp; True&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '.Font.Color&nbsp; =&nbsp; vbRed&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Color&nbsp; =&nbsp; 14277081&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .StopIfTrue&nbsp; =&nbsp; False&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .SetFirstPriority&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; Next&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Re-init&nbsp; noter&nbsp; un&nbsp; résultat&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [N_Joueur]&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Tour]&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Is_Tirage_Done</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("C1").Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show_Repaint</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Edit_Liste()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>NomListe<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; NomListe&nbsp; =&nbsp; [Nom_Liste].Value&nbsp; &amp;&nbsp; ".xls"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; CreateObject("Scripting.FileSystemObject")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Fso.FileExists([Dir_Liste]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; NomListe)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_File_Liste</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; NomListe&nbsp; =&nbsp; [Nom_Liste].Value&nbsp; &amp;&nbsp; ".xls"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Msgtext&nbsp; =&nbsp; NomListe&nbsp; &amp;&nbsp; "&nbsp; est&nbsp; ouvert&nbsp; en&nbsp; écriture"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Si&nbsp; vous&nbsp; le&nbsp; modifiez,"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "n'oubliez&nbsp; pas&nbsp; de&nbsp; recharger&nbsp; la&nbsp; liste&nbsp; dans&nbsp; DS&nbsp; Pétanque"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Resume</B></FONT></B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Workbooks(NomListe)<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Workbooks.<FONT class=blue color=#2980b9 &nbsp;><B>Open&nbsp; </B></FONT>([Dir_Liste]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; [Nom_Liste])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Workbooks(NomListe).Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Workbooks(NomListe).Worksheets("Modif").Unprotect</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; Msgtext,&nbsp; vbInformation&nbsp; +&nbsp; vbOKOnly,&nbsp; "Liste&nbsp; des&nbsp; joueurs&nbsp; Habituels"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; S_APPEL_LISTE()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Etes-vous&nbsp; sûr(e)&nbsp; de&nbsp; vouloir&nbsp; recharger&nbsp; la&nbsp; liste&nbsp; des&nbsp; habitué(e)s&nbsp; ?",&nbsp; vbCritical&nbsp; +&nbsp; vbYesNo)&nbsp; =&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>WorksheetFunction.CountA([A_inscrire_si_1])&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; APPEL_LISTE</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; APPEL_LISTE&nbsp; MsgBox("Avec&nbsp; préservation&nbsp; des&nbsp; Inscrits&nbsp; ?",&nbsp; vbQuestion&nbsp; +&nbsp; vbYesNo)&nbsp; =&nbsp; vbYes</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; APPEL_LISTE(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>Preserver<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Joueurs_Inscrits</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>F_Address<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Fso<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Object</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Intégration&nbsp; de&nbsp; la&nbsp; liste&nbsp; des&nbsp; joueurs&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Inscrip&nbsp; =&nbsp; ThisWorkbook.Worksheets("Inscrip")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Enlever_Filtre</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; CreateObject("Scripting.FileSystemObject")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Fso.FileExists([Dir_Liste]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; [Nom_Liste]&nbsp; &amp;&nbsp; ".xls")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_File_Liste</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fso&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Preserver&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; sauvegarde&nbsp; des&nbsp; joueurs&nbsp; inscrits&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Joueurs_Inscrits&nbsp; =&nbsp; CreateObject("Scripting.Dictionary")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; F_Address&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [A_inscrire_si_1].Columns(1).Cells([A_inscrire_si_1].Rows.Count)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; on&nbsp; cherche&nbsp; les&nbsp; joueurs&nbsp; cochés&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [A_inscrire_si_1].Find(Coché,&nbsp; R,&nbsp; xlValues,&nbsp; xlWhole,&nbsp; xlByColumns,&nbsp; xlPrevious)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>F_Address&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; F_Address&nbsp; =&nbsp; R.Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Joueurs_Inscrits.Add&nbsp; R.Offset(,&nbsp; 4)&nbsp; &amp;&nbsp; "&nbsp; "&nbsp; &amp;&nbsp; R.Offset(,&nbsp; 5),&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [A_inscrire_si_1].FindPrevious(R)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>R.Address&nbsp; =&nbsp; F_Address&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [A_inscrire_si_1].FormulaR1C1&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [JOUEURS_REGULIERS].EntireRow.Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [JOUEURS_REGULIERS].Offset(,&nbsp; 1).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Filename&nbsp; =&nbsp; [Dir_Liste]&nbsp; &amp;&nbsp; "\"&nbsp; &amp;&nbsp; [Nom_Liste]&nbsp; &amp;&nbsp; ".xls"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Workbooks.Open(Filename:=Filename,&nbsp; ReadOnly:=<FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT>)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Inscrits[#Data]].Copy</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Inscrip.Range("E147").PasteSpecial&nbsp; Paste:=xlValues</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.CutCopyMode&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>.Close</B></FONT>&nbsp; SaveChanges:=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Preserver&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Joueur<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>Inscrip.Range("F"&nbsp; &amp;&nbsp; 147&nbsp; &amp;&nbsp; ":G"&nbsp; &amp;&nbsp; [A_inscrire_si_1].Rows.Count).Rows</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Joueurs_Inscrits.exists(Joueur.Cells(1)&nbsp; &amp;&nbsp; "&nbsp; "&nbsp; &amp;&nbsp; Joueur.Cells(2))&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Range("B"&nbsp; &amp;&nbsp; Joueur.Row)&nbsp; =&nbsp; "1"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Joueurs_Inscrits&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Tri_Joueurs_Reguliers</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [JOUEURS_REGULIERS].Columns(2).SpecialCells(xlCell<FONT class=blue color=#2980b9 &nbsp;><B>Type</B></FONT>Blanks).EntireRow.Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Tbx_Régulier_Change</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Inscrip.[B144],&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Inscrip&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Function&nbsp; </B></FONT>Get_Folder_Tables()<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Fd<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>FileDialog</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fd&nbsp; =&nbsp; Application.FileDialog(msoFileDialogFolderPicker)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Fd</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .AllowMultiSelect&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Title&nbsp; =&nbsp; "Dossier&nbsp; des&nbsp; Tables&nbsp; de&nbsp; Tirages"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .InitialFileName&nbsp; =&nbsp; [Dir_Tables].Value&nbsp; &amp;&nbsp; IIf(Right([Dir_Tables],&nbsp; 1)&nbsp; =&nbsp; "\",&nbsp; "",&nbsp; "\")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Show</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.SelectedItems.Count&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Dir_Tables].Value&nbsp; =&nbsp; .SelectedItems(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_Folder_Tables&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_Folder_Tables&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fd&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Function&nbsp; </B></FONT>Get_Folder_Svg()<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Fd<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>FileDialog</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fd&nbsp; =&nbsp; Application.FileDialog(msoFileDialogFolderPicker)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Fd</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .AllowMultiSelect&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Title&nbsp; =&nbsp; "Dossier&nbsp; des&nbsp; Sauvegardes&nbsp; [&nbsp; RESULTATS&nbsp; ]"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .InitialFileName&nbsp; =&nbsp; [Svg_Dir].Value&nbsp; &amp;&nbsp; IIf(Right([Svg_Dir],&nbsp; 1)&nbsp; =&nbsp; "\",&nbsp; "",&nbsp; "\")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Show</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.SelectedItems.Count&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Svg_Dir].Value&nbsp; =&nbsp; .SelectedItems(1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_Folder_Svg&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get_Folder_Svg&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Fd&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; RAZ_Joueurs_Réguliers_Inscrits()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [A_inscrire_si_1].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; RAZ(<FONT class=blue color=#2980b9 &nbsp;><B>Optional&nbsp; </B></FONT>SansConfirmer&nbsp; =&nbsp; vbNo)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>SansConfirmer&nbsp; =&nbsp; vbNo&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SansConfirmer&nbsp; =&nbsp; MsgBox("Voulez-vous&nbsp; lancer"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; "l'effacement&nbsp; de&nbsp; la&nbsp; liste",&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vbYesNo&nbsp; +&nbsp; vbQuestion,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "VALIDER&nbsp; pour&nbsp; CONTINUER")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>SansConfirmer&nbsp; =&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [E1].FormulaR1C1&nbsp; =&nbsp; "=TODAY()"<FONT class=comm color=green &nbsp;>&nbsp; 'initialiser&nbsp; avec&nbsp; date=AUJOURDHUI&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [AL5:AL135].FormulaR1C1&nbsp; =&nbsp; "=IF(RC[-34]="""","""",RC[-34])"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [AC5:AD135].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [RAZ_LISTE].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [NT]&nbsp; =&nbsp; vbNullString</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [TIRAGE_appelé].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [R23].ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Cell<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>[Joueurs_en_D5].Cells</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>Cell.Comment<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Cell.Comment.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; on&nbsp; peut&nbsp; saisir&nbsp; directement&nbsp; (jusqu'à&nbsp; atrribution&nbsp; des&nbsp; N°)&nbsp; en&nbsp; D5&nbsp; à&nbsp; E135,&nbsp; même&nbsp; si&nbsp; la&nbsp; feuille&nbsp; est&nbsp; verrouillée.&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Zone_Payé].Locked&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [D5:E135].Locked&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [D5:E135].FormulaHidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; APPEL_LISTE<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; recharge&nbsp; la&nbsp; liste&nbsp; des&nbsp; joueurs&nbsp; habitués&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REDUIRE</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Enlever_Filtre</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Attrib]&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show_Repaint</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "CONSIGNES&nbsp; DE&nbsp; SAISIE&nbsp; :"&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; &nbsp; Cliquer&nbsp; au&nbsp; besoin&nbsp; sur&nbsp; le&nbsp; bouton&nbsp; (changer)'ordre&nbsp; LISTE'&nbsp; situé&nbsp; en&nbsp; D3&nbsp; pour&nbsp; pouvoir,&nbsp; ensuite,&nbsp; CHOISIR&nbsp; (en&nbsp; cliquant&nbsp; sur&nbsp; la&nbsp; flèche&nbsp; en&nbsp; "&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; "D4/E4)&nbsp; soit&nbsp; dans&nbsp; une&nbsp; liste&nbsp; NOM-Prénom&nbsp; soit&nbsp; dans&nbsp; une&nbsp; liste&nbsp; Prénom-NOM,"&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; MAIS&nbsp; on&nbsp; peut&nbsp; aussi,&nbsp; pour&nbsp; les&nbsp; joueurs&nbsp; occasionnels,&nbsp; TAPER&nbsp; DIRECTEMENT&nbsp; un&nbsp; nom-prénom&nbsp; en&nbsp; D4.&nbsp; &nbsp; &nbsp; Dans&nbsp; les&nbsp; 2&nbsp; cas,&nbsp; il&nbsp; faut&nbsp; "&nbsp; &amp;&nbsp; _&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; "&nbsp; toujours&nbsp; terminer&nbsp; par&nbsp; CLIQUER&nbsp; sur&nbsp; le&nbsp; bouton<FONT class=comm color=green &nbsp;>&nbsp; 'Ajouter'&nbsp; et,&nbsp; ensuite,&nbsp; saisir&nbsp; le&nbsp; sexe=F&nbsp; en&nbsp; col.E&nbsp; &nbsp; si<FONT class=comm color=green &nbsp;>&nbsp; 'Féminin'&nbsp; ou&nbsp; assimilé."&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Tri_Joueurs_Reguliers()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Plage<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Plage&nbsp; =&nbsp; Worksheets("Inscrip").Range([A_inscrire_si_1],&nbsp; [JOUEURS_REGULIERS])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Ordre_Liste]&nbsp; Like&nbsp; "P*"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; tri&nbsp; par&nbsp; Prénom&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Plage.Sort&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key1:=[JOUEURS_REGULIERS].Cells(4),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key2:=[JOUEURS_REGULIERS].Cells(3),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key3:=[JOUEURS_REGULIERS].Cells(5),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Header:=xlNo</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Plage.Sort&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key1:=[JOUEURS_REGULIERS].Cells(3),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key2:=[JOUEURS_REGULIERS].Cells(4),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key3:=[JOUEURS_REGULIERS].Cells(5),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Header:=xlNo</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; IMPRIM_LISTE_2col()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Reference:="LISTE_2cols"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Z&nbsp; =&nbsp; [LISTE_2cols].Offset(2).Columns(2).Resize(,&nbsp; 6).Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ActiveSheet.PageSetup.PrintArea&nbsp; =&nbsp; Z</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Print_Preview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [A_inscrire_si_1].Cells(1).Select</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; CADRER_INSCRIP()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("INSCRIP").Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; REDUIRE<FONT class=comm color=green &nbsp;>&nbsp; 'les&nbsp; lignes&nbsp; inutilisées&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("C").Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("G").Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Columns("A:R").Select:&nbsp; ActiveWindow.Zoom&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Cells(1).Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; CADRER_NOTER()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("NOTER&nbsp; 1&nbsp; RESULTAT").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [a1].Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Reference:="CADRE_NOTER",&nbsp; Scroll:=<FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; ActiveWindow.Zoom&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; VERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [E9].Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show_Repaint</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Suivi_Tour</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Set_Score()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Noter&nbsp; 1&nbsp; RESULTAT").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Sh<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>ActiveSheet.Shapes</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Sh.Name&nbsp; Like&nbsp; "Score_*"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Sh.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; H&nbsp; =&nbsp; 12</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; W&nbsp; =&nbsp; 12</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Wmax&nbsp; =&nbsp; W&nbsp; *&nbsp; 14</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; X&nbsp; =&nbsp; ([Resultat].Left&nbsp; +&nbsp; [Resultat].MergeArea.Width)&nbsp; -&nbsp; Wmax</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Y&nbsp; =&nbsp; [Resultat].Top&nbsp; -&nbsp; H</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>I&nbsp; =&nbsp; 0<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>13</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>shp&nbsp; =&nbsp; ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle,&nbsp; X,&nbsp; Y,&nbsp; W,&nbsp; H)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; shp</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Name&nbsp; =&nbsp; "Score_P_"&nbsp; &amp;&nbsp; I</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Line.Weight&nbsp; =&nbsp; 0.25</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .OLEFormat.Object</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Color&nbsp; =&nbsp; 4697456</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Color&nbsp; =&nbsp; vbWhite</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Size&nbsp; =&nbsp; 6</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Bold&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .TextFrame2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .VerticalAnchor&nbsp; =&nbsp; msoAnchorMiddle</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.Characters.Text&nbsp; =&nbsp; IIf(I&nbsp; =&nbsp; 0,&nbsp; "G",&nbsp; Format(I,&nbsp; "+##;-##"))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.ParagraphFormat.Alignment&nbsp; =&nbsp; msoAlignCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginLeft&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginTop&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginRight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginBottom&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .OnAction&nbsp; =&nbsp; "Click_Score"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X&nbsp; =&nbsp; X&nbsp; +&nbsp; W</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; X&nbsp; =&nbsp; ([Resultat].Left&nbsp; +&nbsp; [Resultat].MergeArea.Width)&nbsp; -&nbsp; Wmax</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Y&nbsp; =&nbsp; [Resultat].Top&nbsp; +&nbsp; [Resultat].Height</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>I&nbsp; =&nbsp; 14<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>1&nbsp; Step&nbsp; -1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>shp&nbsp; =&nbsp; ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle,&nbsp; X,&nbsp; Y,&nbsp; W,&nbsp; H)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; shp</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Name&nbsp; =&nbsp; "Score_N_"&nbsp; &amp;&nbsp; I</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Line.Weight&nbsp; =&nbsp; 0.25</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .OLEFormat.Object</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Color&nbsp; =&nbsp; vbRed</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Color&nbsp; =&nbsp; vbWhite</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Size&nbsp; =&nbsp; 6</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Font.Bold&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .TextFrame2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .VerticalAnchor&nbsp; =&nbsp; msoAnchorMiddle</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.Characters.Text&nbsp; =&nbsp; IIf(I&nbsp; =&nbsp; 14,&nbsp; "P",&nbsp; Format(-I,&nbsp; "+##;-##"))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.ParagraphFormat.Alignment&nbsp; =&nbsp; msoAlignCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginLeft&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginTop&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginRight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginBottom&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .OnAction&nbsp; =&nbsp; "Click_Score"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; X&nbsp; =&nbsp; X&nbsp; +&nbsp; W</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; showactive()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Debug.Print</B></FONT>&nbsp; Selection.Interior.Color</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Set_Btn(X,&nbsp; Y,&nbsp; W,&nbsp; H,&nbsp; V)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>C<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Long</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Static&nbsp; Id:&nbsp; Id&nbsp; =&nbsp; IIf(Id&nbsp; &gt;&nbsp; 999,&nbsp; 1,&nbsp; Id&nbsp; +&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle,&nbsp; X,&nbsp; Y,&nbsp; W,&nbsp; H)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Name&nbsp; =&nbsp; "Joueur_"&nbsp; &amp;&nbsp; Id</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Line.Weight&nbsp; =&nbsp; 0.25</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>V&nbsp; Like&nbsp; "tour*"<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; vert&nbsp; foncé&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C&nbsp; =&nbsp; 2316088</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>IsNumeric(V)<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Vert&nbsp; Pastel&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C&nbsp; =&nbsp; 5287936</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>V&nbsp; =&nbsp; Val(ActiveSheet.Cbx_Numéros):&nbsp; C&nbsp; =&nbsp; 8696052</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>V.DisplayFormat.Font.Strikethrough<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Gris&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C&nbsp; =&nbsp; 10855845</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>V.DisplayFormat.Interior.Color&nbsp; =&nbsp; vbRed:&nbsp; C&nbsp; =&nbsp; vbRed</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT><FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; vert&nbsp; foncé&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; C&nbsp; =&nbsp; 3506772</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Fill.ForeColor.RGB&nbsp; =&nbsp; C</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .TextFrame2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .VerticalAnchor&nbsp; =&nbsp; msoAnchorMiddle</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.Characters.Text&nbsp; =&nbsp; V</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.ParagraphFormat.Alignment&nbsp; =&nbsp; msoAlignCenter</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.Font.Size&nbsp; =&nbsp; 10</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TextRange.Font.Bold&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginLeft&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginTop&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginRight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .MarginBottom&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .OnAction&nbsp; =&nbsp; "Click_Result"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; X&nbsp; =&nbsp; X&nbsp; +&nbsp; W</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Public<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT>&nbsp; IsRegistered()<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; IsRegistered&nbsp; =&nbsp; [Supprimer].Visible</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>Public<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT>&nbsp; IsWin()<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>[Resultat]&nbsp; =&nbsp; "G":&nbsp; IsWin&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>[Resultat]&nbsp; &gt;&nbsp; 0:&nbsp; IsWin&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Function</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Suivi_Tour()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Nrows<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Long,&nbsp; N<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Long,&nbsp; NP<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Long</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Tirage_Done]&nbsp; =&nbsp; "OK"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.ScreenUpdating&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Rt&nbsp; =&nbsp; Worksheets("Tirages").Range("Tour_"&nbsp; &amp;&nbsp; [Tour])</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Rt</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Parent.Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .EntireRow.Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .EntireColumn.Hidden&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NP&nbsp; =&nbsp; WorksheetFunction.CountIf(.Columns(1),&nbsp; "&gt;0")<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Nombre&nbsp; de&nbsp; Parties&nbsp; en&nbsp; tout&nbsp; pour&nbsp; le&nbsp; tour&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; N&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nrows&nbsp; =&nbsp; 3</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>I&nbsp; =&nbsp; 2<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>.Rows.Count</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.Cells(I,&nbsp; 1).Value&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.Cells(I,&nbsp; 1).DisplayFormat.Font.Strikethrough&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; N&nbsp; =&nbsp; N&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nrows&nbsp; =&nbsp; Nrows&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>WorksheetFunction.CountA(.Rows(I))&nbsp; =&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>For</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Worksheets("Noter&nbsp; 1&nbsp; RESULTAT")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DEVERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Resume</B></FONT></B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Ctl<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>.Shapes</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Ctl.Name&nbsp; Like&nbsp; "*Joueur*"&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; Ctl.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>On&nbsp; Error&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; Error_Trap</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>BL,&nbsp; BT,&nbsp; BH,&nbsp; BW,&nbsp; R</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; .[J3].Top</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BH&nbsp; =&nbsp; 15</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BW&nbsp; =&nbsp; 15</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Id&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>R&nbsp; =&nbsp; 1<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>Nrows</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BL&nbsp; =&nbsp; .[J3].Left</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>R&nbsp; =&nbsp; 1<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Titre&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; (BW&nbsp; *&nbsp; 6)&nbsp; +&nbsp; 2,&nbsp; BH,&nbsp; Rt.Cells(1,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; +&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>R&nbsp; =&nbsp; 2<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Blanc&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Rt.Cells(R,&nbsp; 3)&nbsp; &lt;&gt;&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW&nbsp; *&nbsp; 2,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 3)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; -&nbsp; BH</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>R&nbsp; =&nbsp; 3<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Tête&nbsp; à&nbsp; tête&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Rt.Cells(R,&nbsp; 1)&nbsp; &lt;&gt;&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW&nbsp; *&nbsp; 2,&nbsp; BH,&nbsp; "TaT&nbsp; :"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL&nbsp; +&nbsp; 2,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 4)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; -&nbsp; BH</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>R&nbsp; =&nbsp; 4<FONT class=comm color=green &nbsp;>&nbsp; 'Doublette&nbsp; sup&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Rt.Cells(R,&nbsp; 1)&nbsp; &lt;&gt;&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BL&nbsp; =&nbsp; BL&nbsp; +&nbsp; BW</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 2)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BL&nbsp; =&nbsp; BL&nbsp; +&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 4)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 5)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; -&nbsp; BH</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; +&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>Worksheets("Tirages").[AM2]&nbsp; Like&nbsp; "*tête*"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BL&nbsp; =&nbsp; .[J3].Left&nbsp; +&nbsp; BW&nbsp; *&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL&nbsp; +&nbsp; 2,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; 4)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>C&nbsp; =&nbsp; 1<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; To&nbsp; </B></FONT>6</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Rt.Cells(R,&nbsp; C)&nbsp; &lt;&gt;&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set_Btn&nbsp; BL,&nbsp; BT,&nbsp; BW,&nbsp; BH,&nbsp; Rt.Cells(R,&nbsp; C)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BL&nbsp; =&nbsp; BL&nbsp; +&nbsp; BW</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>C&nbsp; =&nbsp; 3&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; BL&nbsp; =&nbsp; BL&nbsp; +&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BT&nbsp; =&nbsp; BT&nbsp; +&nbsp; BH</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .[J2]&nbsp; =&nbsp; "Parties&nbsp; restantes&nbsp; :&nbsp; "&nbsp; &amp;&nbsp; NP&nbsp; -&nbsp; N</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>N&nbsp; =&nbsp; NP&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[Tour]&nbsp; &lt;&nbsp; 4&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Le&nbsp; tour&nbsp; "&nbsp; &amp;&nbsp; [Tour]&nbsp; &amp;&nbsp; "&nbsp; est&nbsp; terminé"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Oui&nbsp; =&nbsp; passer&nbsp; au&nbsp; tour&nbsp; suivant"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Non&nbsp; =&nbsp; rester&nbsp; sur&nbsp; le&nbsp; tour",&nbsp; vbQuestion&nbsp; +&nbsp; vbYesNo)&nbsp; =&nbsp; vbYes&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; [Tour]&nbsp; =&nbsp; [Tour]&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>MsgBox("Le&nbsp; concours&nbsp; est&nbsp; terminé"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "Voulez-vous&nbsp; procéder&nbsp; au&nbsp; paiement&nbsp; ?",&nbsp; vbInformation&nbsp; +&nbsp; vbYesNo)&nbsp; =&nbsp; vbYes&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Inscrip").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '[N_joueur].Activate&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Exit&nbsp; </B></FONT>Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Error_Trap:</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; Err.Number&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; Err.Description</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Resume</B></FONT></B></FONT><FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Click_Score()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; V&nbsp; =&nbsp; ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; &nbsp; If IsNumeric(V)&nbsp; then&nbsp; [Resultat]&nbsp; =&nbsp; V&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Resultat]&nbsp; =&nbsp; V</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; Click_Result()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; V&nbsp; =&nbsp; ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>IsNumeric(V)&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ActiveSheet.Cbx_Numéros&nbsp; =&nbsp; Val(V)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Tour].Activate</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; REDUIRE()<FONT class=comm color=green &nbsp;>&nbsp; 'les&nbsp; lignes&nbsp; inutilisées&nbsp; ou&nbsp; MONTRER&nbsp; les&nbsp; lignes&nbsp; utilisées&nbsp; &gt;=30&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Lig<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>[NBJR]&nbsp; &lt;&nbsp; [Joueurs_en_D5].Rows.Count&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Lig&nbsp; =&nbsp; Application.Max(28,&nbsp; [Joueurs_en_D5].Rows([Joueurs_en_D5].Rows.Count).End(xlUp).Row&nbsp; +&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Worksheets("INSCRIP").Rows(Lig&nbsp; &amp;&nbsp; ":"&nbsp; &amp;&nbsp; "135")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.RowHeight&nbsp; &gt;&nbsp; 0&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; .RowHeight&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VERROU</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; PAIEMENTS()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>Largeur<FONT class=comm color=green &nbsp;>&nbsp; 'actuelle&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Cells(2,&nbsp; 19)&nbsp; =&nbsp; IIf(Cells(2,&nbsp; 19)&nbsp; =&nbsp; 0,&nbsp; 5.29,&nbsp; 0)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("M:O").ColumnWidth&nbsp; =&nbsp; Cells(2,&nbsp; 19)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; CADRER_INSCRIP</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; REPORT_DES_NOMS_AVEC_1()</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>J<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Integer</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Inscrip").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Enlever_Filtre</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].RowHeight&nbsp; =&nbsp; 28.5</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Offset(,&nbsp; -1).Resize(,&nbsp; 1).FormulaR1C1&nbsp; =&nbsp; "=IF(RC[-1]="""",3,IF(RC[2]=""F"",0,IF(RC[2]=""Z"",2,1))+RAND())"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Offset(,&nbsp; -2).Resize(,&nbsp; 1).FormulaR1C1&nbsp; =&nbsp; "=IF(RC4="""","""",ROW()-ROW(R4C4))"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; On&nbsp; supprime&nbsp; toutes&nbsp; les&nbsp; lignes&nbsp; de&nbsp; joueurs_en_d5&nbsp; qui&nbsp; n'ont&nbsp; pas&nbsp; de&nbsp; commentaires&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>For&nbsp; </B></FONT>Each</B></FONT>&nbsp; Cell<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; In&nbsp; </B></FONT>[Joueurs_en_D5]</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>Cell.Comment<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Cell&nbsp; &lt;&gt;&nbsp; vbNullString&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Resize(,&nbsp; 2).ClearContents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Next</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; N&nbsp; =&nbsp; Application.WorksheetFunction.CountA([Joueurs_en_D5].Columns(1))&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; +&nbsp; Application.WorksheetFunction.CountA([Joueurs_liste].Columns(1))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>N&nbsp; &gt;&nbsp; [MAX_JR]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "Trop&nbsp; de&nbsp; joueurs"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; N&nbsp; &amp;&nbsp; "&nbsp; Inscrits"&nbsp; &amp;&nbsp; vbLf&nbsp; &amp;&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "pour&nbsp; "&nbsp; &amp;&nbsp; [MAX_JR]&nbsp; &amp;&nbsp; "&nbsp; autorisés",&nbsp; vbCritical&nbsp; +&nbsp; vbOKOnly</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nl&nbsp; =&nbsp; 0</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'Debug.Print&nbsp; Application.WorksheetFunction.CountA([Joueurs_liste].Columns(1))&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; on&nbsp; démarre&nbsp; la&nbsp; recherche&nbsp; à&nbsp; partir&nbsp; de&nbsp; la&nbsp; derniere&nbsp; cellule&nbsp; de&nbsp; la&nbsp; plage&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; F_Address&nbsp; =&nbsp; ""</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [Joueurs_liste].Columns(1).Cells([Joueurs_liste].Rows.Count)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [Joueurs_liste].Columns(1).Find(Coché,&nbsp; R,&nbsp; xlValues,&nbsp; xlWhole,&nbsp; xlByColumns,&nbsp; xlPrevious)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B><FONT class=blue color=#2980b9 &nbsp;><B>Do&nbsp; </B></FONT>While</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>R<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>F_Address&nbsp; =&nbsp; ""&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; F_Address&nbsp; =&nbsp; R.Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nl&nbsp; =&nbsp; Nl&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; If Nl&nbsp; =&nbsp; 54&nbsp; then&nbsp; Stop&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; Debug.Print&nbsp; Nl,&nbsp; "&nbsp; On&nbsp; cherche&nbsp; "&nbsp; &amp;&nbsp; R.Offset(0,&nbsp; 2);&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>s&nbsp; =&nbsp; [Joueurs_en_D5].Find(R.Offset(0,&nbsp; 2))</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>s<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; Is&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; J&nbsp; =&nbsp; ([Joueurs_en_D5].Find(vbNullString,&nbsp; Range("D135")).Row&nbsp; -&nbsp; [Joueurs_en_D5].Row)&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Cells(J)&nbsp; =&nbsp; StrConv(R.Offset(0,&nbsp; 2),&nbsp; vbProperCase)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Joueurs_en_D5].Cells(J).Offset(0,&nbsp; 1)&nbsp; =&nbsp; R.Offset(0,&nbsp; 3)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Debug.Print</B></FONT>&nbsp; "&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>found"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'R.Activate&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; [Joueurs_liste].Columns(1).Find(Coché,&nbsp; R,&nbsp; xlValues,&nbsp; xlWhole,&nbsp; xlByColumns,&nbsp; xlPrevious)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>R.Address&nbsp; =&nbsp; F_Address&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>R&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Nothing</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; [TRI_noms].Sort&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key1:=Range("E5"),&nbsp; Order1:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Key2:=Range("D5"),&nbsp; Order2:=xlAscending,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Header:=xlNo,&nbsp; OrderCustom:=1,&nbsp; Match<FONT class=blue color=#2980b9 &nbsp;><B>Case:</B></FONT>=<FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>,&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Orientation:=xlTopToBottom,&nbsp; DataOption1:=xlSortNormal</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Usf_Mao_Ds.Show_Repaint</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.EnableEvents&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Application.<FONT class=blue color=#2980b9 &nbsp;><B>Goto</B></FONT>&nbsp; [a1],&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; CADRER_INSCRIP</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; ShowTip(<FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>Caption<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>String,&nbsp; B<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Object,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>X<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Single,&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>ByVal&nbsp; </B></FONT>Y<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Single)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; <FONT class=comm color=green &nbsp;>&nbsp; 'On Error ResumeNext&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>TT<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>TextBox</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>TT&nbsp; =&nbsp; ActiveSheet.Shapes("TipText").OLEFormat.Object</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; TT</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Select&nbsp; Case</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>B.Enabled:&nbsp; .Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT>(X&nbsp; &gt;&nbsp; 2<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>X&nbsp; &lt;&nbsp; B.Width&nbsp; -&nbsp; 4)<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>(Y&nbsp; &gt;&nbsp; 2<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; And&nbsp; </B></FONT>Y&nbsp; &lt;&nbsp; B.Height&nbsp; -&nbsp; 4)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT>.Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT>&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Caption&nbsp; =&nbsp; Caption</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Interior.Color&nbsp; =&nbsp; 13434879</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Left&nbsp; =&nbsp; B.Left&nbsp; +&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Top&nbsp; =&nbsp; B.Top&nbsp; -&nbsp; .Height&nbsp; -&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .AutoSize&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Case&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Select</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; DoEvents</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; IMPRIMER_LISTE_joueurs()<FONT class=comm color=green &nbsp;>&nbsp; 'LISTE&nbsp; forme&nbsp; ALPHA&nbsp; +&nbsp; forme&nbsp; NUMERIQUE&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>L<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Sheets("Inscrip").Activate</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>If&nbsp; </B></FONT><FONT class=blue color=#2980b9 &nbsp;><B>Not&nbsp; </B></FONT>[Attrib]&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>then</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox&nbsp; "L'attribution&nbsp; des&nbsp; N°&nbsp; n'ayant&nbsp; pas&nbsp; été&nbsp; faite,"&nbsp; &amp;&nbsp; vbLf&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp;&nbsp; "Une&nbsp; liste&nbsp; simple&nbsp; des&nbsp; Joueurs&nbsp; Inscrits&nbsp; va&nbsp; être&nbsp; éditée",&nbsp; _</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vbCritical,&nbsp; "Important"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IMPRIMER_LISTE_joueurs_Seuls</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Else</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>L&nbsp; =&nbsp; [Joueurs_en_D5].Columns(1).Find("*",&nbsp; SearchDirection:=xlPrevious)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; REDUIRE<FONT class=comm color=green &nbsp;>&nbsp; '&nbsp; hauteur&nbsp; =0&nbsp; si&nbsp; ligne&nbsp; vide&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ActiveSheet.PageSetup<FONT class=comm color=green &nbsp;>&nbsp; '=standard&nbsp; DS&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterHorizontally&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterVertically&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Orientation&nbsp; =&nbsp; xlPortrait</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Zoom&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .LeftMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .RightMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TopMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .FitToPagesWide&nbsp; =&nbsp; 1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .PrintArea&nbsp; =&nbsp; "$AC$3:$AL$"&nbsp; &amp;&nbsp; L.Row</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Print_Preview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; If</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; Range("A1").Select</P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">Sub&nbsp; IMPRIMER_LISTE_joueurs_Seuls()<FONT class=comm color=green &nbsp;>&nbsp; 'LISTE&nbsp; forme&nbsp; ALPHA&nbsp; </FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Dim&nbsp; </B></FONT>L<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Range,&nbsp; Simple<FONT class=blue color=#2980b9 &nbsp;><B>&nbsp; As&nbsp; </B></FONT>Boolean</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; Sheets("Inscrip")</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>L&nbsp; =&nbsp; [Joueurs_en_D5].Find("*",&nbsp; SearchDirection:=xlPrevious)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>Set&nbsp; </B></FONT>Plage&nbsp; =&nbsp; [Joueurs_en_D5].Rows("1:"&nbsp; &amp;&nbsp; L.Row&nbsp; -&nbsp; [Joueurs_en_D5].Row&nbsp; +&nbsp; 1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; N1&nbsp; =&nbsp; WorksheetFunction.RoundUp(Plage.Rows.Count&nbsp; /&nbsp; 2,&nbsp; 0)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Temp").Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Temp").Select</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells.Delete</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells.Font.Size&nbsp; =&nbsp; 14</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells.Font.Name&nbsp; =&nbsp; "Calibri"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [a1]&nbsp; =&nbsp; "Nom&nbsp; Prénom"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; [a2].Resize(N1)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Value&nbsp; =&nbsp; Plage.Resize(N1).Value</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .Parent.ListObjects.Add(xlSrcRange,&nbsp; .CurrentRegion,&nbsp; ,&nbsp; xlYes)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Name&nbsp; =&nbsp; "Tableau1"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TableStyle&nbsp; =&nbsp; "TableStyleMedium6"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.AutoFit</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; N2&nbsp; =&nbsp; Plage.Rows.Count&nbsp; -&nbsp; N1</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [C1]&nbsp; =&nbsp; "Nom&nbsp; Prénom"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; [C2].Resize(N2)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Value&nbsp; =&nbsp; Plage.Offset(N1).Resize(N2).Value</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; .Parent.ListObjects.Add(xlSrcRange,&nbsp; .CurrentRegion,&nbsp; ,&nbsp; xlYes)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Name&nbsp; =&nbsp; "Tableau2"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TableStyle&nbsp; =&nbsp; "TableStyleMedium6"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Columns.AutoFit</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Rows(1).RowHeight&nbsp; =&nbsp; Rows(1).RowHeight&nbsp; *&nbsp; 2</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Columns("B").ColumnWidth&nbsp; =&nbsp; 5</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; H&nbsp; =&nbsp; Application.Max(Columns("A").ColumnWidth,&nbsp; Columns("C").ColumnWidth)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Columns("A").ColumnWidth&nbsp; =&nbsp; H</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Columns("C").ColumnWidth&nbsp; =&nbsp; H</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT>&nbsp; ActiveSheet.PageSetup</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterHorizontally&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>True</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .CenterVertically&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Orientation&nbsp; =&nbsp; xlPortrait</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Zoom&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .LeftMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .RightMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .TopMargin&nbsp; =&nbsp; Application.InchesToPoints(0.196850393700787)</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .LeftFooter&nbsp; =&nbsp; "&amp;""Calibri,Gras&nbsp; italique""&amp;12&nbsp; "&nbsp; &amp;&nbsp; Plage.Rows.Count&nbsp; &amp;&nbsp; "&nbsp; joueurs"</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .PrintArea&nbsp; =&nbsp; [A:C].Resize(WorksheetFunction.Max(N1,&nbsp; 12)&nbsp; +&nbsp; 1).Address</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Print_Preview</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Worksheets("Temp").Visible&nbsp; =&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>False</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp; &nbsp; &nbsp; &nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; <FONT class=blue color=#2980b9 &nbsp;><B>With</B></FONT></B></FONT></P>
<P style="COLOR: black; MARGIN: 0px"><FONT class=blue color=#2980b9 &nbsp;><B>End&nbsp; Sub</B></FONT></P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P>
<P style="COLOR: black; MARGIN: 0px">&nbsp;</P></FONT></FONT></FONT></FONT></FONT>
 

patricktoulon

XLDnaute Barbatruc
patricktoulon a mis à jour Complément (Vba Indenter Interface) avec une nouvelle entrée de mise à jour:

Vba indenter Interface V3.1.C Fx3


Lire le reste de cette entrée de mise à jour...
 

patricktoulon

XLDnaute Barbatruc
Bonjour à tous la mise à jour 3.1.C Fx3 a été faite (en attente de modération)
de nouvelles surprises vous attendent
 

patricktoulon

XLDnaute Barbatruc
patricktoulon a mis à jour Complément (Vba Indenter Interface) avec une nouvelle entrée de mise à jour:

Vba indenter Interface V3.1.C Fx3


Lire le reste de cette entrée de mise à jour...
 

Jouxte

XLDnaute Occasionnel
Bonjour patricktoulon,
Merci pour cette superbe application.
J'ai repéré une petite erreur de coloration dans un export pdf (voir ci-dessous)
W = ActiveCell.Width ' width range


 

patricktoulon

XLDnaute Barbatruc
re
Bonjour @Jouxte
et oui le commentaire
en plus il y a le "msoTrue" aussi qui devrait être completement bleu je l'ai pas vu celui là
après sincèrement ne te casse pas la tête avec ça because la version Fx3 a été posée en attente de modération
et la fonction export html color a complétement changée et il y a d'autres surprises avec aussi
merci pour ton retour je vais ajouter le msoTrue
 
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

VbaComponents Manager
2
Réponses
27
Affichages
759
patricktoulon
  • Question
Autres testez la version beta 1.0 de mon vba Indenter
2 3 4
Réponses
49
Affichages
1 K
patricktoulon
VBEMAN :: Utilitaire de mise à jour de modules VBA
Réponses
0
Affichages
321
oguruma
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
5
Affichages
59 K
Best1
B
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
38 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
38 K
MichelXld
M
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
80 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
46 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…