XL 2013 VBA - simplifier macro (bloc IF/End IF)

   If Ws.Name <> "Info" Or Ws.Name <> "1" Or Ws.Name <> "2" Or Ws.Name <> "3" Or Ws.Name <> "4" Or Ws.Name <> "5" Or Ws.Name <> "6" Or Ws.Name <> "7" Or Ws.Name <> "8" Or Ws.Name <> "9" Or Ws.Name <> "10" Or Ws.Name <> "11" Or Ws.Name <> "12" Or Ws.Name <> "janvier" Or Ws.Name <> "février" Or Ws.Name <> "mars" Or Ws.Name <> "avril" Or Ws.Name <> "mai" Or Ws.Name <> "juin" Or Ws.Name <> "juillet" Or Ws.Name <> "août" Or Ws.Name <> "septembre" Or Ws.Name <> "octobre" Or Ws.Name <> "novembre" Or Ws.Name <> "décembre" Or Ws.Name <> "data" Then
     Ws.Delete
     j = j + 1
         End If

If Ws.Name <> "Info" And Not Ws.Name Like "#*" And Not IsDate("1 " & Ws.Name & " 1900") _
   And Ws.Name <> "data" Then Ws.Delete: j = j + 1

Sub MAJ_Onglets()
 Dim Sh As Worksheet
 Dim Ws As Worksheet
 Dim LastLig As Long
 Dim i As Integer
 Dim j As Integer
 
j = 2
 
For Each Ws In Application.Worksheets
     If Ws.Name = Sheets("Info").Range("A" & j) Then
     j = j + 1
     Else
     Application.DisplayAlerts = False
         If Ws.Name <> "Info" Then
         If Ws.Name <> "Data" And Not Ws.Name Like "#*" And Not IsDate("1 " & Ws.Name & " 1900") Then
     Ws.Delete
     j = j + 1
         End If
         End If
     Application.DisplayAlerts = True
     End If
 
Next Ws
  
 With Sheets("Info")
     LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
     For i = LastLig To 2 Step -1
         On Error Resume Next
         Set Sh = Sheets(CStr(.Range("A" & i).Value))
         On Error GoTo 0
         If Sh Is Nothing Then
             ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
             ActiveSheet.Name = CStr(.Range("A" & i).Value)
         Else
             Set Sh = Nothing
         End If
     Next i
 End With
 
End Sub