Ranger des celulles

Sheets("Préparation").Cells(21, Application.Columns.Count).End(xlToLeft).Offset(0, 1).Value = Me.CP_CS

Private Sub CommandButton1_Click() 'bouton "Ok"
Dim ctr As Control 'déclare la variable ctr (ConTRole)

For Each ctr In Me.Controls 'boucle sur tous les contrôles de l'UserForm
    If TypeOf ctr Is MSForms.TextBox Then 'condition 1 : si le contrôle est une TextBox
        If ctr.Value = "" Then 'condition 2 : si la Textbox est vide
            Message = MsgBox("la saisie est obligatoire !") 'message
            ctr.SetFocus 'place le curseur dans la TextBox
            Exit Sub 'sort de la procédure
        ElseIf Not IsDate(ctr.Value) Then 'condition 3 : si le texte renseigné ne correspond pas a une date
            Message = MsgBox(ctr.Value & " nest pas une date !") 'message
            ctr.SetFocus 'place le curseur dans la TextBox
            'sélection du texte
            ctr.SelStart = 0 'début de la sélection
            ctr.SelLength = Len(ctr.Value) 'longueur de la sélection
            Exit Sub 'sort de la procédure
        End If 'fin des conditions 2 et 3
    End If 'fin de la condition1
Next ctr 'prochain contrôle de la boucle

Sheets("entrepôt").Range("B13") = Datedebut.Text 'place la date de début
Sheets("entrepôt").Range("B14") = datefin.Text 'place la date de fin
Unload Me 'vide et ferme l'UserForm
End Sub