For i = 1 To 5
If Not tablo(i) = "" Then
.Cells(Lgn [COLOR="Red"]- 1[/COLOR], i) = Me.Controls(tablo(i)).Value
.Cells(Lgn [COLOR="Red"]- 1[/COLOR], i).BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=xlAutomatic
Me.Controls(tablo(i)).Value = ""
End If
Next