Sub FDP()
Dim FDP As Worksheet
Dim prl As Long
Dim drl As Long
Dim Tableau As Range
Dim nPyl As Integer
Dim pyl As String
Application.ScreenUpdating = False
Set FDP = Sheets("Fleches de pose")
Set Tableau = FDP.Range("B9:AB90")
prl = FDP.Range("C10").End(xlDown).Row
'comptage nbre de supports à copier
drl = Sheets("Ripage des pinces").Range("C14").End(xlDown).Row
nPyl = Sheets("Ripage des pinces").Range("C14:C" & drl).Rows.Count
For i = 1 To nPyl
DebTableau = Cells(Rows.Count, "B").End(xlUp).Offset(2, 0).Row
Tableau.Copy Destination:=Cells(Rows.Count, "B").End(xlUp).Offset(2, 0)
Cells(DebTableau + 4, "E") = Cells(i + 13, "C")
Next i
Application.ScreenUpdating = True
End Sub