Private Sub BtnSave_Click()
Dim Col As Long, Liste()
'Dim I As Variant
ligne = 6 + cbChambres.ListIndex
'Pour les combos
Application.ScreenUpdating = False
Call DeprotegeTout
ReDim Liste(1 To 1, 1 To 9)
For Col = 11 To 19
Liste(1, Col - 10) = Me.Controls("cbx" & Col).Value
Next
Sheets("BD").Range(Cells(ligne, 11), Cells(ligne, 19)) = Liste
ReDim Liste(1 To 1, 1 To 11)
For Col = 20 To 30
Liste(1, Col - 19) = Me.Controls("cbx" & Col).Value
Next
Sheets("BD").Range(Cells(ligne, 20), Cells(ligne, 30)) = Liste
ReDim Liste(1 To 1, 1 To 65)
For Col = 50 To 114
Liste(1, Col - 49) = Me.Controls("cbx" & Col).Value
Next
Sheets("BD").Range(Cells(ligne, 50), Cells(ligne, 114)) = Liste
ReDim Liste(1 To 1, 1 To 11)
For Col = 31 To 41
Liste(1, Col - 30) = Me.Controls("cbxt" & Col).Value
Next
Sheets("BD").Range(Cells(ligne, 31), Cells(ligne, 41)) = Liste
ReDim Liste(1 To 1, 1 To 8)
For Col = 42 To 49
Liste(1, Col - 41) = Me.Controls("cbxp" & Col).Value
Next
Sheets("BD").Range(Cells(ligne, 42), Cells(ligne, 49)) = Liste
Call ProtegeTout
Application.ScreenUpdating = True
End Sub