Bonjour

Je voudrais une aide.
Pour un calcule de taux d'occupation, j'ai développé une macro.
Elle copie des données de deux tableaux la suite puis ajouter une formule à chaque ligne crées.
Sauf que cela ne marche pas pour l'ajout. J'ai beau tourner dans tous les sens, l'erreur m'échape.*
Qu'en pensez vous ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Taux()
'
'
'
  On Error GoTo ErreurMacro
 
  Dim DLig As Long
  Dim i As Integer
 
  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A2:A" & DLig & ",B2:B" & DLig & ",D2:D" & DLig & ",M2:M" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A3").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
 
  Sheets("Archives").Activate
 
  DLig = Range("A" & Rows.Count).End(xlUp).Row
 
  Range("A68:A" & DLig & ",B68:B" & DLig & ",D68:D" & DLig & ",M68:M" & DLig & ",BE68:BE" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
 
  With Sheets("Taux d'occupation").Range("A69").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
 
  For i = 3 To 150
 
    If Range(A & i).Value <> "" Then
 
 
    Cells(E, i).FormulaLocal = "=SI(MOIS(Tableau8[[#En-têtes];[janv-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[janv-2020]];-1);[@[Date d''arrivée]]-1));""En_attente"")"
    Cells(F, i).FormulaLocal = "=SI(MOIS(Tableau8[[#En-têtes];[févr-2020]])<MOIS(AUJOURDHUI());MAX(0;MIN(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];0);[@[Date de départ]])-MAX(FIN.MOIS(Tableau8[[#En-têtes];[févr-2020]];-1);[@[Date d''arrivée]]-1));""En_attente"")"
 
    End If
 
  Next i
 
ErreurMacro:
 
MsgBox Err.Number & vbLf & Err.Description
 
End Sub