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