Private Sub CDouble_Click()
    If CDouble.Value = True Then
                                Dim A As Integer

                                Randomize
                                A = Int(19 * Rnd) + 1
                                If Worksheets("Chambres").Range("K3") <> 0 Then
                                                                                While Worksheets("Chambres").Cells(A + 1, 2) <> ""
                                                                                    Randomize
                                                                                    A = Int(19 * Rnd) + 1
                                                                                Wend
                                                                                Num.Value = "D" & A
                                                                            Else
                                                                                MsgBox ("Nous n'avons plus de Chambres Doubles disponibles")
                                End If

    End If
End Sub