Sub remplir()
Dim lastline As Integer
lastline = Range("E65637").End(xlUp).Row
For i = 1 To lastline
If Cells(i, 5) = "Failed" And Cells(i, 6) = "" Then
nb = Range(Cells(i, 5), Cells(i, 5).End(xlToRight)).Count - 1
Range(Cells(i, 6), Cells(i, 5).End(xlToRight).Offset(0, -1)) = nb
End If
Next i
End Sub