Sub clients()
Dim nom As String
Dim Debut As Integer
Dim Cellule As Range
'Dim Ajout As String
Range("A1:A31").ClearContents
For Each Cellule In Range("D2", Range("D200").End(xlUp))
Debut = Cells(Cellule.Row, 8).Value
For x = 0 To Cells(Cellule.Row, 6).Value - 1
' Ajout = ""
' If Len(Cells(Debut + x, 1).Value) > 1 Then Ajout = Cells(Debut + x, 1) & " - "
Cells(Debut + x, 1).Value = Cellule.Value ' si superposition => = Ajout & Cellule.Value
Next
Next
' Range("d2").ClearContents
End Sub