Sub Groupage()
Dim ligne As Range, cel As Range
Set plage = Worksheets("Devis").Range("L15:N21")
For Each ligne In plage.Rows
For Each cel In ligne.Cells
msg = msg & cel.Value
Next
msg = msg & vbCrLf
Next
Worksheets("Facture").Range("B16") = msg
End Sub