Sub ajout_correspondace()
Worksheets("billing_summary").Activate 'Définition de la feuille active
Dim k As Byte
For k = 4 To 200 'pour les lignes 4 à 200
' If Cells(k, 1).Value = "" Then GoTo Passe
'si entete vide, on saute la recherche
Cell.FormulaLocal = "=SIERREUR(INDEX(Table_correspondance!$A$1:$B$999;EQUIV($C4;Table_correspondance!$A$1:$A$999;0);2);"""")"
Next k
End Sub