affectation bouton macro

bonjour,


Sub Debut(Optional Factice As String)
'
'
'

ActiveSheet.Unprotect
Range("E6") = Time
ActiveSheet.Unprotect
End Sub

Sub Fin(Optional Factice As String)
'Sheets("L1").Select
ActiveSheet.Unprotect
If Range("E6") <> "" Then
Range("H2") = Range("H1") + 1
Cpt = Range("H2")
If Range("E6") > Time Then timerec = Time + 1 Else timerec = Time
Range("G6") = timerec
' le calcul s'effectue dans la case I6
Range("h6:k6").Select

Selection.Copy

Range("B15").Offset(Cpt, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G6").Select
Selection.ClearContents
Range("e6").Select
Selection.ClearContents
Range("C6").Select


End If
ActiveSheet.Protect
End Sub
Sub seltion1(Optional Factice As String)

mais je ne peut pas affecter un bouton avec cette macro

pourquoi?

a+