Format TextBox + effacer données

[COLOR=BLUE]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=BLUE]Dim[/COLOR] i [COLOR=BLUE]As Byte[/COLOR], Derlig [COLOR=BLUE]As Long[/COLOR]
    [COLOR=BLUE]With[/COLOR] Sheets("données")
    Derlig = .Range("C65536").End(xlUp).Row + 1
        .Range("C" & Derlig) = IIf(TextBox3.Value >= 2, TextBox3.Value & " ans", TextBox3.Value & " an")
        .Range("D" & Derlig) = TextBox4.Value & " m"
        .Range("E" & Derlig) = TextBox5.Value & " Kg"
        .Range("F" & Derlig) = TextBox6.Value
    [COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]For[/COLOR] i = 3 [COLOR=BLUE]To[/COLOR] 6
    OLEObjects("TextBox" & i).Object.Value = ""
[COLOR=BLUE]Next[/COLOR] i
[COLOR=BLUE]End Sub[/COLOR]

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then If Shift Then TextBox2.Activate Else TextBox4.Activate
End Sub