Private Sub Bt1_Click()
Dim n&
With Feuil8
If L1.ListIndex = -1 Then
fin = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To 12
.Cells(fin, i - 1) = IIf(IsNumeric(Controls("T" & i)), Val(Controls("T" & i)), Controls("T" & i))
Next i
Else
For i = 2 To 12
.Cells(lig, i - 1) = IIf(IsNumeric(Controls("T" & i)), Val(Controls("T" & i)), Controls("T" & i))
Next i
End If
End With
Unload Me
End Sub