Complément (Vba Indenter Interface)

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

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

patricktoulon

XLDnaute Barbatruc
juste pour vous montrer le rendu en html color
1717098734432.png

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

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

Bonjour à tous
voici la mise à jour fx3
  1. problème des select case imbriqués dans des case solutionné
  2. lignes underscore solutionnées
  3. Ajout du mode de recompilation des ligne underscore (si souhaité)
  4. Nouvelle fonction d'export html color (nouveau principe) plus rapide (quasi instantané)
  5. Ajout du menu de choix de couleur pour l'export
  6. Retour de l'accès à l'interface a partir du menu contextuel dans les fenêtres VBE...
Cliquez pour agrandir...

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

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

Bonjour à tous
voici la mise à jour fx3

  1. problème des select case imbriqués dans des case solutionné
  2. lignes underscore solutionnées
  3. [New!!]Ajout du mode de recompilation des ligne underscore (si souhaité)
  4. [New!!]Nouvelle fonction d'export html color (nouveau principe) plus rapide (quasi instantané)
  5. [New!!]Ajout du menu de choix de...
Cliquez pour agrandir...

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

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


1718286239100.png
 
patricktoulon

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
 
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour à tous
Mise à jour 3.1_Fx4
  1. Correctif sur les blocs sub
  2. correctif sur les couleurs d'export html et pdf
  3. ajout du bouton enregistrer pour garder le format d'export
  4. indentation directe au click droite dans module bien plus rapide
  5. export en htmlcolor ultra rapide

vous n'avez rien a faire juste l’installer dans vos addins et le cocher dans les options

enjoy ;)
 
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
bonjour @patricktoulon
je viens de télécharger ta dernière version.
Dés le chargement j'ai le bug suivant:

1735303288445.png


J'ai regardé le code et l'interface et n'ai pas trouvé d'objet Frame.

j'ai eu aussi:
1735303431953.png

j'ai fait [Shift]+[F2] sur Frame1 et voilà ce que j'ai obtenu:
1735304458338.png


Je ne connais pas cette bibliothèque.
Par contre j'ai bien un seul Frame ici:
1735304628945.png


Voilà, voilà … désolé.
La version précédente VBA_Indenter_Interface_V3_1_C_Fx3 fait pareil
Je ne comprends pas.
Un petit coup de main SVP;

PS:
J'ai Excel 2024 64 bits
 
Dernière édition:
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour
et ben tu est le premier
mais en même temps pas étonné
quand je vois que le customui n'a pas pu être loadé je me dis que tu a certainement pas activer l’accès au vba project ( ce qui coule de source) vu que l'on travaille dans les modules
ensuite la frame 2 j'imagine que comme tu n'a pas pu initialiser le vba indenter ben c'est une cascade d'erreur qui paraissent sur le coup complétement loufoque mais il n'en est rien
le code s’arrête là ou il ne peut plus avancer
peut être aussi a tu des autorisations restrictives au quel cas c'est mort pour toi

à ce jour 145 téléchargements toutes configs confondues et aucun retours négatifs
un seul c'est toi
quand a la bibliotheque F3Dynamic je sais pas ou tu est allé la chercher sincèrement
j'utilise des frame classique dans ce projet
 
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
patricktoulon à dit:
bonjour
et ben tu est le premier
mais en même temps pas étonné quand je vois que le customui n'a pas pu être loadé je me dis que tu a certainement pas activer l’accès au vba project ( ce qui coule de source) vu que l'on travaille dans les modules
ensuite la frame 2 j'imagine que comme tu n'a pas pu initialiser le vba indenter ben c'est une cascade d'erreur qui paraissent sur le coup complétement loufoque mais il n'en est rien
le code s’arrête là ou il ne peut plus avancer
peut être aussi a tu des autorisations restrictives au quel cas c'est mort pour toi

à ce jour 145 téléchargements toutes configs confondues et aucun retours négatifs
un seul c'est toi
quand a la bibliotheque F3Dynamic je sais pas ou tu est allé la chercher sincèrement
j'utilise des frame classique dans ce projet
Cliquez pour agrandir...
Désolé de te contrarier en ces moments de Fêtes 😉
C'est ce que les collègues me disaient: "Là il y a une c...le on est sûr qu'il tombe dessus."😁
Le "chef" chiant quoi.

1735310939076.png


1735311187827.png

Là je ne comprends pas. Une petite aide/explication?
 
Dernière édition:
patricktoulon

patricktoulon

XLDnaute Barbatruc
vbproject c'est le nom du vbaproject du classeur actif en general (en tout cas beaucoup) ne donne pas un nom au vbaproject dans les classeur courant
la plus par nomme juste les projet xlam ou rarement des classeur precis personel
le non enregistré là par contre c'est plus dur
pour que les chose soit claires voici mon vbe avec mon complement vba indenter enclenché
on vois clairement que la ref au complement est disponible
1735316231524.png

on vois aussi qu'il est clairement présent dans le vbprojectet surtout en premier
demo1.gif



si tu a un "non enregistrer c'est qu'elle est mal activée voir pas du tout dans les option
 
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
Voici un classeur vierge:
1735317033539.png

La fenêtre des références à ce moment là, VbaProject est là et non coché.
1735317675453.png

Voici la fenêtre des références après avoir ajouté un module VIDE:
1735317926293.png

Comme tu le vois le VbaProject est toujours affiché correctement dans la fenêtre des Références ET toujours non coché. Pas de problème pas d'erreur.

Là en utilisant Références j'ai pris VBA Indenter:
1735320076596.png

VBAProject toujours pas coché.
Les mêmes erreurs sont toujours là. Par contre je n'ai plus le "VBAProject Non enregistré".

Les menus Indenter sont bien là
1735320454592.png
 

Pièces jointes

  • 1735317206749.png
    1735317206749.png
    58 KB · Affichages: 0
Dernière édition:
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
A priori le problème du "VBAProject Non référencé" se produit si on référence Indenter en passant par le menu Compléments de Développeur au lieu de Références.

Par contre quand je clique sur le menu ...
1735321537094.png

et
1735321577239.png

Au chargement du classeur
1735321706816.png

et à 3 reprises ceci
1735321751566.png

Les mêmes erreurs se produisent au chargement du classeur
Je te met le classeur utilisé (Classeur1.xlsm)
A+
Bonne soirée

PS:
… peut être aussi as tu des autorisations restrictives au quel cas c'est mort pour toi à ce jour 145 téléchargements …
Cliquez pour agrandir...
1) Aucune restriction ici.
... à ce jour 145 téléchargements …
Cliquez pour agrandir...
2) Qu'importe le nombre seule compte la qualité … et la modestie 😁😂🤣
 

Pièces jointes

  • Classeur1.xlsm
    18.9 KB · Affichages: 1
Dernière édition:
patricktoulon

patricktoulon

XLDnaute Barbatruc
que veux tu que je te dise
tu me parle de librairie que je n'utilise pas
c'est pas une question de modestie mais 144 fonctionne,t et tu es le seul
pour moi la réponse se trouve dans la question
j'ai téléchargé ton fichier et je l'a ouvert
et bien regarde
demo1.gif

comme tu vois si il n' y a pas d'autres composant qui viennent foutre le boxon il fonctionne très bien
c'est a toi de tout contrôler dans ton environnement
si l’accès au vbaprojet est approuvé
si tu n'a pas de restrictions autres par d’éventuels paramètres ou autres composants
bref n'utilisant aucune autre librairie et controls que ceux qui sont basique et communs a toutes les versions d'excel depuis 2007 à 2021 je ne vois pas quoi de dire de plus
c'est pas dans le vba indenter qu'il faut chercher sinon j'aurais déjà eu ce retour et j'aurais déjà corrigé
même sur une version candidate de 2024 il a fonctionné c'est pour te dire
après si ta config l'interdit ou l'empêche de fonctionner correctement ,je peux rien pour toi tu a smart indenter sinon en version 4.0 mais il dure 30 jours après il est payant
 

Discussions similaires

patricktoulon
VbaComponents Manager
2
Réponses
27
Affichages
1 K
patricktoulon
patricktoulon
patricktoulon
  • Question
Autres testez la version beta 1.0 de mon vba Indenter
2 3 4
Réponses
49
Affichages
2 K
patricktoulon
patricktoulon
oguruma
VBEMAN :: Utilitaire de mise à jour de modules VBA
Réponses
0
Affichages
423
oguruma
oguruma
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
59 K
Le_Phénomène
Le_Phénomène
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
39 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
47 K
MichelXld
M

Membres actuellement en ligne

2 membres et 49 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 246
Messages
2 117 750
Membres
113 300
dernier inscrit
faby79