userform visible sur 1 feuille

Private Sub CommandButton1_Click() 'bouton "VALIDER"
...
For Each cel In p 'boucle sur toutes les cellules de la plage p
    If cel.Value <> "" Then 'condition 1 : si la cellule n'est pas vide
        'condition 2 : si la date de la cellule est égale à la date de la TextBox DATE
        If DateValue(cel.Value) = DateValue(DATE1.Value) Then
            'place la valeur de la TextBox VALEUR
            Sheets(mois).Cells(cel.Row, colV + Décalage) = valeur.Value
            Unload Me 'vide et ferme l'UserForm
            [B]données.Show[/B]
            Exit Sub 'sort de la procédure
        ...
'place la valeur de la TextBox VALEUR
Sheets(mois).Cells(35, colD).End(xlUp).Offset(0, colV - 1 + Décalage).Value = valeur.Value
Unload Me 'vide et ferme l'UserForm
[B]données.Show[/B]
Exit Sub 'sort de la procédure
suite: 'gestion d'erreur de date invalide
...
Unload Me 'vide et ferme l'UserForm
[B]données.Show[/B]
Exit Sub 'sort de la procédure

...
End Sub