Sub MiseAJour(Optional Truc As String = "")
[COLOR=red][B] If labelMessage Is Nothing Then Exit Sub
[/B][/COLOR]
If bArreter = True Then
labelMessage.ForeColor = &HFF&
Set labelMessage = Nothing
Else
If labelMessage.ForeColor = &HFF& Then
labelMessage.ForeColor = &HC0C0C0
Else
labelMessage.ForeColor = &HFF&
End If
Call Demarrer
End If
End Sub