Sub EcritUSF(Arg1)
Sheets("LISTE CLIENT").Select
Mesval = Array("T1", "T2", "T3", "T4", "T5", "T6", "T7", "TB1", "T8", "T9", "T10", "TB2", "T11", "T12", "T13")
For i = 0 To UBound(Mesval)
[COLOR="red"]Sheets("LISTE CLIENT").Cells(Arg1, i + 2) = ufnewcl.Controls(Mesval(i)).Text
Next[/COLOR]
Unload ufnewcl
Sheets("SAISIE CLIENT").Select
End Sub