Private Sub BtnValider_Click()
If BtnValider.Caption = "Devis" Then
Dim VCol(1 To 6, 1 To 1), L As Long
Mettre VCol, L, VLgn(1, 3) & " " & VLgn(1, 4)
Mettre VCol, L, VLgn(1, 5)
Mettre VCol, L, VLgn(1, 6), Devant:="À l'attention de : "
Mettre VCol, L, VLgn(1, 7)
Mettre VCol, L, VLgn(1, 8)
Mettre VCol, L, VLgn(1, 9) & " " & VLgn(1, 10)
Feuil1.[A1:A6].Value = VCol