Sub ponderation()
Dim DerLig As Long, Cel As Range
Dim DerLig2 As Long
DerLig = Sheets("Données teruti").[A65536].End(xlUp).Row
If Application.Sum(Sheets("Données teruti").Range("D2:D" & DerLig)) > 56536 Then MsgBox "pas sur une feuille": Exit Sub
Sheets("pondération surface").Range("A2:K65536").ClearContents
For Each Cel In Sheets("Données teruti").Range("D2:D" & DerLig)
With Sheets("pondération surface")
DerLig2 = .[A65536].End(xlUp).Row + 1
.Cells(DerLig2, 1).Resize(Cel.Value, 11).Value = Sheets("Données teruti").Cells(Cel.Row, 1).Resize(1, 11).Value
.Cells(DerLig2, 4) = 1
.Cells(DerLig2, 4).AutoFill Destination:=.Range(.Cells(DerLig2, 4), .Cells(DerLig2 + Cel.Value - 1, 4)), Type:=xlFillSeries
End With
Next Cel
End Sub