[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]