Private Sub CBnImprimerFiche_Click()
FVisa.[B17].Value = "Je sousigné " & VLgn(1, 4) & " " & VLgn(1, 3) & " " & VLgn(1, 2) & " sur le site " _
& IIf(InStr("AEÉIOU", Left$(VLgn(1, 1), 1)), "d'", "de ") & VLgn(1, 1)
Me.Hide
FVisa.PrintPreview
Me.Show
End Sub