Erreur de compilation

Bonjour à tous,

Voilà je me retrouve avec cette erreur (voir capture PJ) depuis aujourd'hui, je suis passé de excel 2010 (32bit) à office 365 pro plus avec excel 2016 (32bit)

Quand je regarde dans la macro voici ce qu'elle génère comme erreur voir PJ (autre capture d'écran)

Voici la totalité du code utilisé. J'ai cherché quelques solutions sur internet mais je n'ai encore rien trouvé qui pourrait ressembler à mon problème.

Je vous remercie de l'attention que vous porterez à mon problème.

Option Explicit

Sub AddLigne()
  Dim lig&: Worksheets("Accueil").Select
  Application.ScreenUpdating = False
    Sheets("Demandes").Select
    ActiveSheet.Unprotect "Confections"
    Sheets("Bordereau").Select
    ActiveSheet.Unprotect "Confections"
    Sheets("Accueil").Select
    ActiveSheet.Unprotect "Confections"

  With Worksheets("demandes")
    If IsEmpty([B2]) Or IsEmpty([E2]) Or IsEmpty([B4]) _
      Or IsEmpty([B8]) Or IsEmpty([B12]) Then Exit Sub
    lig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lig, 1) = [B2]    ' N° demande
    .Cells(lig, 3) = [E2]    ' Date
    .Cells(lig, 4) = [B4]    ' Emetteur
    .Cells(lig, 5) = [B6]    ' Zone de production
    .Cells(lig, 6) = [B8]    ' Opération
    .Cells(lig, 7) = [B12]   ' Type de travaux
    .Cells(lig, 8) = [B14]   ' N° dessin
    .Cells(lig, 9) = [B16]   ' Quantité
    .Cells(lig, 10) = [B18]  ' Symbole
    .Cells(lig, 11) = [B10]  ' Compte
    .Cells(lig, 12) = [B20]  ' Délai demandé
    .Cells(lig, 13) = [B22]  ' Commentaires
      End With
      Dim lig1&: Worksheets("Accueil").Select
  Application.ScreenUpdating = False
  With Worksheets("Bordereau")
    If IsEmpty([B2]) Or IsEmpty([E2]) Or IsEmpty([B4]) _
      Or IsEmpty([B8]) Or IsEmpty([B12]) Then Exit Sub
    .[C2] = [B2]    ' N° demande
    .[F2] = [E2]    ' Date
    .[C5] = [B4]    ' Emetteur
    .[F5] = [B6]    ' Zone de prod
    .[C9] = [B8]    ' Type de travaux
    .[C11] = [B12]  ' Désignation pdt
    .[C14] = [B14]  ' Dessin / Doc
    .[F14] = [B18]  ' Symbole
    .[C16] = [B16]  ' Quantité
    .[F16] = [B10]  ' Compte / N° OF
    .[C18] = [B22]  ' Observations
    .[D20] = [B20]  ' Délai
    ' effacement des données de Feuil1 =>
    ' c'est prêt pour une nouvelle saisie
    For lig1 = 4 To 20 Step 2
      Cells(lig1, 2).ClearContents
    Next lig1
    [B22:E25].ClearContents: [B2].Select
  End With
    [B2] = "2019-" & Format(Val(Right$([B2], 4)) + 1, "0000")
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "=TODAY()+60"
    Sheets("Demandes").Select
    ActiveSheet.Protect "Confections"
    Sheets("Bordereau").Select
        ActiveSheet.Protect "Confections"
    Sheets("Accueil").Select
        ActiveSheet.Protect "Confections"
    ActiveWorkbook.Save
    Sheets("Bordereau").Select
End Sub

Bonjour,

Aller dans le ruban VBA > Outils > Références... et décocher la(les) références déclarées manquantes.

A+

Bonjour Galopin,

Merci pour ton aide précieuse, c'est pas grand chose mais il faut le savoir.