Complément (Vba Indenter Interface)

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

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 ;)
 

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
402
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
38 K
MichelXld
M
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
80 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M

Membres actuellement en ligne

11 membres et 115 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
314 732
Messages
2 112 285
Membres
111 498
dernier inscrit
romain36