Private Sub CommandButton1_Click()
'Msgbox Ok + Annuler
Select Case MsgBox("Confirmation de commande reçue", vbOKCancel, "Mise à jour")
Case vbOK
'procédure si click sur Ok
Case vbCancel
'procédure si click sur Annuler
End Select
Dim i, label, default_value
i = 3
For i = 3 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).Object.Value = True Then
Dim l As Integer
Dim c As Byte
l = ligne
c = Columns
Columns = Worksheets("commande en cours").Range(Columns(1), Columns(7))
ligne = Worksheets("commande en cours").Range(2)
Worksheets("commande en cours").Range(l, c).Cut
Worksheets("commandes à recevoir").Range("A65536").End(xlUp).PasteSpecial
'déplace la ligne (colonne A à G) associée au checkbox coché dans une autre feuille à la suite (même formatage)
End If
Next
End Sub