Sub AjouterBouton(CellDest As Range, Position As Integer)
Dim BoutonValid As Object
Set BoutonValid = ThisWorkbook.Sheets("CPG_Validation").OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=1, Top:=1, Width:=70, Height:=30)
With BoutonValid
.Top = CellDest.Top + (CellDest.Height - .Height) / 2
.Left = CellDest.Left + (CellDest.Width - .Width) / 2
.Object.Caption = "Validation"
.Object.Font.Bold = True
.Object.ForeColor = &H823700
.Object.BackColor = &H59BB9B
End With
ReDim Preserve Bouton_Valideur(Position)
Set Bouton_Valideur(Position).MonBouton = BoutonValid.Object
End Sub