Sub mlk()
Set wf = WorksheetFunction
Set t = Sheets("calcul")
Set n = Sheets("NEGOCE")
For i = 1 To 12
Select Case IsEmpty(t.Range("a5").Offset(i, 0))
Case True
feuille = Sheets("calcul").Range("L5").Offset(i, 0)
If feuille <> "" Then
Sheets(feuille).Range("c5") = Sheets("calcul").Range("E5").Offset(i, 0)
Sheets(feuille).Range("b3") = Sheets("calcul").Range("I5").Offset(i, 0)
Sheets(feuille).Range("c3") = Sheets("calcul").Range("J5").Offset(i, 0)
Sheets(feuille).Range("d3") = Sheets("calcul").Range("K5").Offset(i, 0)
Sheets("calcul").Range("N5").Offset(i, 0) = Sheets(feuille).Range("L21")
Sheets("calcul").Range("ag5").Offset(i, 0) = Sheets(feuille).Range("G3")
End If ' ------------------------------ici-----------------------------------------
Case False
t.Range("N5").Offset(i, 0) = _
wf.Index(n.Range("S3:AQ3000"), wf.Match(t.Range("b5").Offset(i, 0), n.Range("AQ3:AQ5000"), 0), wf.Match(t.Range("E5").Offset(i, 0), n.Range("S2:AQ2"), 0))
End Select
Next i
End Sub