Sub Modifier_listes()
Sheets("Listes").Select
Range("I11").Select
If Selection.Value = "" Then
MsgBox "Veuillez sélectionner un tour de scrutin avant de contrôler ou modifier", vbOKOnly: Exit Sub
End If
If Selection.Value = "1er tour" Then
Sheets("Listes de candidats").Select
Dim Tour1 As Integer
Tour1 = WorksheetFunction.CountA(Columns(1)) - 1
Sheets("Listes").Select
Range("D11") = Tour1
Sheets("Listes de candidats").Select
Range("A3").Copy
Sheets("Listes").Select
Range("D13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A4").Copy
Sheets("Listes").Select
Range("D15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A5").Copy
Sheets("Listes").Select
Range("D17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A6").Copy
Sheets("Listes").Select
Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A7").Copy
Sheets("Listes").Select
Range("D21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A8").Copy
Sheets("Listes").Select
Range("D23").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A9").Copy
Sheets("Listes").Select
Range("D25").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("A10").Copy
Sheets("Listes").Select
Range("D27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Selection.Value = "2me tour" Then
Sheets("Listes de candidats").Select
Dim Tour2 As Integer
Tour2 = WorksheetFunction.CountA(Columns(2)) - 1
Sheets("Listes").Select
Range("D11") = Tour2
Sheets("Listes de candidats").Select
Range("B3").Copy
Sheets("Listes").Select
Range("D13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B4").Copy
Sheets("Listes").Select
Range("D15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B5").Copy
Sheets("Listes").Select
Range("D17").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B6").Copy
Sheets("Listes").Select
Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B7").Copy
Sheets("Listes").Select
Range("D21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B8").Copy
Sheets("Listes").Select
Range("D23").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B9").Copy
Sheets("Listes").Select
Range("D25").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Listes de candidats").Select
Range("B10").Copy
Sheets("Listes").Select
Range("D27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub