Dim Ligne As Long
Dim PlageG
Dim PlageE As Range
PlageG = Sheets("Feuil2").Range("G" & Rows.Count).End(xlUp).Copy
With Worksheets("Feuil1")
DerLig = .Range("E" & Rows.Count).End(xlUp).Row
Set PlageE = .Range("E8:E" & DerLig)
Fin = PlageE.Rows.Count
For n = 1 To Fin
D = Split(PlageE(n, 1), "-")
If CLng(D(1)) < 50 And PlageG(n, 1) <> "" Then
.Range("K" & 7 + n) = PlageG(n, 1)
End If
Next n
.Range("L8:L" & .Cells(.Rows.Count, 11).End(xlUp).Row).FormulaR1C1 = "=(RC[-1]/(COUNTA(R8C5:R20C5)))"
Selection.NumberFormat = "0.00"
End With
End Sub