Sub essai()
Dim i%, nom As String, dep As Byte, nombre%
Sheets("resultat attendu").Cells.ClearContents
With Sheets("base")
For i = 2 To .Range("A65536").End(xlUp).Row
nom = .Cells(i, 1).Value
dep = .Cells(i, 2).Value
nombre = .Cells(i, 3).Value
derligne1 = Sheets("resultat attendu").Range("A65536").End(xlUp).Row
Sheets("resultat attendu").Select
Range(Cells(derligne1 + 1, 1), Cells(derligne1 + nombre, 1)).Value = nom
Range(Cells(derligne1 + 1, 2), Cells(derligne1 + nombre, 2)).Value = dep
.Select
Next i
End With