Private Sub BtnValider_Click()
If BtnValider.Caption = "Devis" Then
Dim VCol(1 To 6, 1 To 1)
VCol(1, 1) = VLgn(1, 3) & " " & VLgn(1, 4)
VCol(2, 1) = VLgn(1, 5)
VCol(3, 1) = "À l'attention de : " & VLgn(1, 6)
VCol(4, 1) = VLgn(1, 7)
VCol(5, 1) = VLgn(1, 8)
VCol(6, 1) = VLgn(1, 9) & " " & VLgn(1, 10)
'With Workbooks("CbxLiésgrisan9-v2-3.xls").Sheets("FactDev")
Sheets("feuil1").[E4:E9].Value = VCol
'End With
Else
If LCou = 0 Then
LCou = CL.PlgTablo.Rows.Count
With CL.PlgTablo.Rows(LCou): .Copy: .Insert: End With
LCou = LCou + 1: End If
VLgn(1, 3) = Me.TBattention.Text
VLgn(1, 4) = Me.TBadresse.Text
VLgn(1, 5) = Me.TBcomplement.Text
VLgn(1, 6) = Me.CBcp.Text
VLgn(1, 7) = Me.CBville.Text
VLgn(1, 8) = Me.TBtele.Text
VLgn(1, 9) = Me.TBport.Text
VLgn(1, 10) = Me.TBfax.Text
VLgn(1, 11) = Me.TBmail.Text
CL.PlgTablo.Rows(LCou).Resize(, 12).Value = VLgn
CL.Actualiser
HabiliterBoutons
End If
End Sub