Option Explicit

Sub ToutEffacerPourReprendre()

With Worksheets("Concours")

    Dl = .Cells(Rows.Count, "A").End(xlUp).Row

    If MsgBox("Vraiment sûr ?", vbYesNo + vbDefaultButton2 + vbQuestion, "Confirmé ? ") = vbYes Then

        .Unprotect
        .Range("A:O").Clear
        .Range("A:O").Locked = True
                                
    Else
        Exit Sub
        
    End If

    With .Shapes.Range("Button 1") ' postionne le bouton "Tirage xe partie" selon la derniere ligne de la Partie1
        
        .Left = Cells(1, "H").Left
        .Top = Cells(1, "H").Top
        .TextFrame.Characters.Text = "Tirage " & Chr(10) & "1re partie" & Chr(10) & ""
        
    End With

    .OptionButton1.Value = 0
    .OptionButton2.Value = 0
    .OptionButton3.Value = 0
    .Range("U1:W1").Font.Bold = False
    .Range("U1:W1").Font.Size = 11
    
    .Range("AJ9").ClearContents
    .Range("AJ11:AJ25").ClearContents
    .Range("AF1:AF60").ClearContents
    .Range("AH1:AH60").ClearContents
    
    With .Cells(1, "J")
        .Font.Bold = True
        .Name = "Calibri"
        .Font.Size = 18
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
    End With
   
End With
 
Tournois = 0

End Sub