' ======================================================================
' =                                                      TIRAGE TETE A TETE                                                          =
' ======================================================================
' Tirage 1ere Partie "Tete a tete"
' ---------------------------------------------------------------------------------------------------------------------------

Sub TeteAtete()

Dim i As Long
Dim X As Integer
Dim Y As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

Tirage 1

With Worksheets("Concours")
    .Select
    .Unprotect
        
    Dl = .Cells(Rows.Count, "A").End(xlUp).Row
    
    'Call M_EnteteEtGrilles.Entete
    Call M_7EnteteEtGrilles.Entete
    
    For i = 2 To Sheets("Inscriptions").Cells(Rows.Count, "O").End(xlUp).Row Step 2
        .Range("A" & 4 + Y) = Sheets("Inscriptions").Range("N" & i)
        .Range("B" & 4 + Y) = Sheets("Inscriptions").Range("O" & i)
        .Range("E" & 4 + Y) = Sheets("Inscriptions").Range("N" & i + 1)
        .Range("F" & 4 + Y) = Sheets("Inscriptions").Range("O" & i + 1)
        Y = Y + 2
    Next i
    
    .Range("Dl_1") = Y + 2
        
    'Call M_EnteteEtGrilles.Grille1
    Call M_7EnteteEtGrilles.Grille1
   
        
    .Range("J1") = "En cours"
    
    Dl = .Cells(Rows.Count, "A").End(xlUp).Row

    With .Shapes.Range("Button 1")
        .Left = Worksheets("Concours").Cells(Dl, "i").Left 'Y
        .Top = Worksheets("Concours").Cells(Dl, "i").Top 'Z
        .Select
        Selection.Characters.Text = "Tirage " & Chr(10) & "2e partie" & Chr(10) & "Tete a tete"
    End With
    '.Cells(Dl, "K").Select
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        
End With
Application.ScreenUpdating = True
End Sub