Sub liste_des_codes1()
Range("M28") = ""
For i = 4 To 24
If Not Cells(i, 4) = 0 Then 'Si la case est cochée (non vide)
Range("M28") = Range("M28") & " ; " & Range("B" & i)
End If
Next i
Range("M28") = Mid(Range("M28"), 4) 'suppression des trois premiers caractères " ; " du début
End Sub