Salut Christophe P , andré
Après une soluce en formule, une autre en macro..
''''''''''''''''''''''''
DV
''''''''''''''''''''''''
Sub reservation()
Dim i As Integer
Dim j As Integer
Dim Reference_Ligne As Integer
Dim Reference_Colonne As Integer
Dim Nb_de_Place As Integer
Reference_Ligne = 5
Reference_Colonne = 18
Nb_de_Place = Cells(Reference_Ligne, Reference_Colonne).Value
For j = 4 To 23
For i = 2 To 13
If Nb_de_Place <> 0 Then
Cells(j, i).Value = Cells(Reference_Ligne, Reference_Colonne - 1).Value
Nb_de_Place = Nb_de_Place - 1
Else
Reference_Ligne = Reference_Ligne + 1
Nb_de_Place = Cells(Reference_Ligne, Reference_Colonne).Value
Cells(j, i).Value = Cells(Reference_Ligne, Reference_Colonne - 1).Value
Nb_de_Place = Nb_de_Place - 1
End If
Next
Next
End Sub