For i = 1 To Ncas
For k = 1 To 3
If k = 1 Then
For l = 1 To 6
On Error Resume Next
' Ton j tu le prend ou, il n'y a pas de référence a ton j dans ce bout de code
teffort(k, j, l, i) = Application.WorksheetFunction.VLookup(Range(Cells(k, j), Cells(k, j)), Range('Indice'), i + 1, False)
If Err.Number = 1004 Then
MsgBox ('Attention')
' veut tu faire un traitement ici du genre Exit For?
End If
Nex l
End If
Next k
Next i