Sub COPIE_DONNEE()
Worksheets("WBS").Activate 'activer la feuille WBS
Dim t As Long
For t = 5 To 200 'Définir les lignes 5 à 200
'il faut que je sélectionne la première cellule vide sur la ligne 5
ActiveCell.FormulaR1C1 = _
"=SIERREUR(INDEX(Billing_Summary!$A$1:$ZZ$17;EQUIV($A,t;Billing_Summary!$A$1:$A$17;0);14);"")"
Next t
End Sub