Dim test, cell
With Sheets("Devis")
test = Application.Max(.Cells(7, Columns.Count).End(xlToLeft).Column, 24) + 1
For Each cell In Sheets("Devis").Cells(7, test)
If test <> "" Then
.Cells(Fdev, test - 4).FormulaR1C1 = "=SUMPRODUCT((RC13=BdD_Vendeur!R4C1:R999C1)*(RC13=R7C)*(RC13<>"""")*1)"
.Cells(Fdev, test - 3).FormulaR1C1 = "=IF(AND(R7C[-1]=RC13,RC18=""Accepté""),1,0)"
.Cells(Fdev, test - 2).FormulaR1C1 = "=IF(AND(R7C[-2]=RC13,RC18=""Reporté""),1,0)"
.Cells(Fdev, test - 1).FormulaR1C1 = "=IF(AND(R7C[-3]=RC13,RC18=""Refusé""),1,0)"
Else
.Cells(Fdev, test) = ""
End If
Next cell
End With