Sub Duplique()
Dim Existe As Boolean
For n = 1 To Sheets.Count
If Sheets(n).Name = "Resultat" Then
Existe = True
Exit For
End If
Next n
If Not Existe Then
Sheets.Add.Name = "Resultat"
Sheets("Donnees").Range("A1:B1").Copy Sheets("Resultat").Range("A1")
End If
Sheets("Resultat").Range("A2:B65536").ClearContents
Dim i As Integer, j As Integer
With Sheets("Donnees")
For i = 2 To .Range("A65536").End(xlUp).Row
For j = 1 To .Cells(i, 3).Value
.Cells(i, 1).Resize(, 2).Copy Sheets("Resultat").Range("A65536").End(xlUp).Offset(1, 0)
Next j
Next i
End With
Sheets("Resultat").Activate
End Sub