Sub AjoutColonne()
Dim c As Byte
Worksheets("Tableau").Activate
Union(Range("Tableau1[maricel]"), Range("Tableau1[maricel]")(0)).Select
c = Selection.Column
Selection.Copy
Cells(3, c + 1).Select
ActiveSheet.Paste
creation (Cells(4, c + 1))
End Sub
Sub creation(cel As Range)
Dim Cb As OLEObject
Set Cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
With Cb
.Left = cel.Left + 25
.Top = cel.Top + 5
.Width = 20 'largeur
.Height = 20 'hauteur
' .Name = "CB" & cel.Column '<-- attribution du nom
.Object.Caption = ""
End With
End Sub