With Sheets("Statistiques")
.Rows("6:6").Insert shift:=xlDown
ColSta = Application.Max(.Cells(6, Columns.Count).End(xlToLeft).Column, 1) + 1
.Cells(6, ColSta).Formula = "=BdD_Vendeur!A" & Fve
If ColSta = 2 Then
.Cells(6, ColSta + 1).Formula = "=IF(B6=Devis!Y$7,COUNTIFS(Devis!Y$8:Devis!Y$1000,1),0)"
Else
.Cells(6, 2).Resize(1, 2).Copy .Cells(6, ColSta)
.Cells(6, 2).Resize(1, 2).Copy .Cells(6, ColSta + 1)
Application.CutCopyMode = False
End If
End With