Sub Test(Launch_First_Line As Boolean)
If Launch_First_Line = True Then
MsgBox "1ere ligne !!"
End If
MsgBox "2eme ligne"
End Sub
Sub Bouton_False_Click()
Call Test(False)
End Sub
Sub Bouton_True_Click()
Call Test(True)
End Sub
Sub Macro1()
If test = True Then
test = False
GoTo suite
End If
'tes lignes de code du début
suite:
'tes lignes de code qui agiront
End Sub