Private Sub Worksheet_Change(ByVal Target As Range)
lig = 2
If Target.Row > 1 And (Target.Column = 1 Or Target.Column = 2) Then
Columns("C").ClearContents
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
For m = 1 To Range("B" & n)
Range("C" & lig) = Range("A" & n)
lig = lig + 1
Next
Next
End If
End Sub