Complément (Vba Indenter Interface)

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

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

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
 

Discussions similaires

patricktoulon
VbaComponents Manager
2
Réponses
27
Affichages
734
patricktoulon
patricktoulon
patricktoulon
  • Question
Autres testez la version beta 1.0 de mon vba Indenter
2 3 4
Réponses
49
Affichages
1 K
patricktoulon
patricktoulon
oguruma
VBEMAN :: Utilitaire de mise à jour de modules VBA
Réponses
0
Affichages
315
oguruma
oguruma
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
5
Affichages
59 K
Best1
B
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
38 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
38 K
MichelXld
M
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
80 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
46 K
MichelXld
M

Membres actuellement en ligne

24 membres et 358 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
312 939
Messages
2 093 789
Membres
105 838
dernier inscrit
TECHD