Optimiser un code sans OR

  Dim liste1, liste2, liste3, liste4
  EQ1 = "": EQ2 = "": norm = "": nuit = ""
  liste1 = Array("FB1", "FC1", "FC3", "FD1", "FF1", "FG1", "FS1", "FV1")
  liste2 = Array("FB2", "FC2", "FC4", "FD2", "FF2", "FG2", "FS2", "FV2")
  liste3 = Array("FC5", "FE1", "FH1", "FI1", "FJ1")
  liste4 = Array("FBN", "FDN", "FFN")
  For n = 0 To 7
    If cel.Offset(0, 8) = liste1(n) Then EQ1 = "EQ1": Exit For
    If cel.Offset(0, 8) = liste2(n) Then EQ2 = "EQ2": Exit For
    If n < 5 Then
      If cel.Offset(0, 8) = liste3(n) Then norm = "Norm": Exit For
    End If
    If n < 3 Then
      If cel.Offset(0, 8) = liste4(n) Then nuit = "Nuit": Exit For
    End If
  Next n

Sub maj()
Dim Ligne As Integer
Dim cel As Range
Dim A As Worksheet
Dim B As Worksheet
Set A = Sheets("import")
Set B = Sheets("DS")
Liste1 = "FB1, FC1, FC3, FD1, FF1, FG1, FS1, FV1,"
Liste2 = "FB2, FC2, FC4, FD2, FF2, FG2, FS2, FV2,"
Liste3 = "FC5, FE1, FH1, FI1, FJ1,"
Liste4 = "FBN, FDN, FFN,"
B.Range("D47:J72").ClearContents
For Lig2 = 2 To A.Range("D65536").End(xlUp).Row
 
    For Ligne = 47 To 72
        Set cel = Cells(Lig2, 4)
        If Not cel.Offset(0, 1) = "ü" Then Exit For
        If cel.Offset(0, 8).Value <> "" And cel = B.Cells(Ligne, 3) Then
            i = 0
            If InStr(Liste1, cel.Offset(0, 8).Value & ",") <> 0 Then i = 1: GoTo Appli
            If InStr(Liste2, cel.Offset(0, 8).Value & ",") <> 0 Then i = 3: GoTo Appli
            If InStr(Liste3, cel.Offset(0, 8).Value & ",") <> 0 Then i = 5: GoTo Appli
            If InStr(Liste4, cel.Offset(0, 8).Value & ",") <> 0 Then i = 7: GoTo Appli
Appli:            If B.Cells(Ligne, 3).Offset(0, i) = "" Then B.Cells(Ligne, 3).Offset(0, i) = cel.Offset(0, -1): Exit For
        End If
    Next
Next
B.Activate
End Sub

Dim B As Worksheet