VBA - simplifier code

Bonjour tout le monde,


Peut -on simplifier ce code ? Merci

Select Case test
Case 1: j = j - 6
grade_situ = Sheets("6_evolution_carriere").Cells(i, 6).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, 7).Value

Case 2: grade_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 2).Value
Case 3:
Do
annee_situ_test = Sheets("6_evolution_carriere").Cells(i, j).Value
If annee_situ_test > annee_notation Then test = 1
If annee_situ_test = annee_notation Then test = 2
If annee_situ_test < annee_notation Then test = 3
j = j + 7
Loop Until (annee_situ_test = "") Or (test = 1) Or (test = 2)

test2 = False

Select Case test
Case 1: j = j - 13

Case 2: j = j - 6

Case 3: annee_situ_test = Sheets("5_calcul_prochain_ae").Cells(i, 6).Value
If annee_situ_test <= annee_notation Then
j = 7
test2 = True
End If
If annee_situ_test > annee_notation Then j = j - 13
End Select
If test2 = True Then
grade_situ = Sheets("5_calcul_prochain_ae").Cells(i, 7).Value
ech_situ = Sheets("5_calcul_prochain_ae").Cells(i, 8).Value
Else
grade_situ = Sheets("6_evolution_carriere").Cells(i, j).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
End If

End Select