Private Sub CommandButton1_Click()
Dim n As Integer
Dim s As Shape
Dim cel As Range
On Error Resume Next
Application.ScreenUpdating = False
For Each cel In Range([A2], [A1000].End(xlUp))
Range("A" & cel.Row & ":C" & cel.Row).Value = ""
Range("I" & cel.Row & ":K" & cel.Row).Value = ""
Next cel
For Each s In ActiveSheet.Shapes
If Left(s.Name, 13) <> "CommandButton" Then
s.Delete
End If
Next s
For n = 1 To [H1].Value
Range("A" & n + 1).Value = n
Range("B" & n + 1).Value = Sheets("Feuil2").Range("A" & n).Value
Range("C" & n + 1).Value = Sheets("Feuil2").Range("B" & n).Value
Next n
For lign = 1 To [H1].Value
posX1 = Cells(lign + 1, 4).Left
posY1 = Cells(lign + 1, 4).Top
largeur1 = Cells(lign + 1, 4).Width
hauteur1 = Cells(lign + 1, 4).Height
With ActiveSheet.CheckBoxes.Add(posX1, posY1, largeur1, hauteur1)
.LinkedCell = Cells(lign + 1, 4).Offset(0, 5).Address
.Characters.Text = "Seront présents"
.Name = "Seront présents " & lign
End With
posX2 = Cells(lign + 1, 5).Left
posY2 = Cells(lign + 1, 5).Top
largeur2 = Cells(lign + 1, 5).Width
hauteur2 = Cells(lign + 1, 5).Height
With ActiveSheet.CheckBoxes.Add(posX2, posY2, largeur2, hauteur2)
.LinkedCell = Cells(lign + 1, 5).Offset(0, 5).Address
.Characters.Text = "A"
.Name = "A " & lign
End With
posX3 = Cells(lign + 1, 7).Left
posY3 = Cells(lign + 1, 7).Top
largeur3 = Cells(lign + 1, 7).Width
hauteur3 = Cells(lign + 1, 7).Height
With ActiveSheet.CheckBoxes.Add(posX3, posY3, largeur3, hauteur3)
.LinkedCell = Cells(lign + 1, 7).Offset(0, 4).Address
.Characters.Text = "B"
.Name = "B " & lign
End With
Next lign
Application.ScreenUpdating = True
End Sub