Private Sub cmdValid_Click()
Sheets("A").Activate
[COLOR="Lime"]On Error Resume Next[/COLOR]
With Range("A65536").End(xlUp)
.Offset(1, 0).Value = labDossard.Caption 'C'est plus joli dans un LabelBox que dans un TextBox
'Structure de l'appel
.Offset(1, 1).Value = [COLOR="Lime"]IIf(Accueil > 0, CDec(Accueil), 0)[/COLOR]
.Offset(1, 2).Value = [COLOR="Lime"]IIf(Accueil3 > 0, CDec(Accueil3), 0)[/COLOR]