Erreur ligne de code: macro copié collé

Bonjour à tous!

Je sollicite votre aide car j'ai un problème de macro.

En effet, la macro que j'utilise copie tous les tableaux de tous mes onglets pour ensuite les copier dans l'onglet "rapport". (Voir PJ)

J'ai une autre macro dans l'onglet "Accueil" qui, par l'ajout d'un "oui" ou d'un "non" dans la cellule ajoute ou cache une ligne dans chacun de ces tableaux (ligne 7 surligné en rouge dans les onglets concernés). "Réaliser la thermographie".

Dans le cas ou j'inscris "non", les lignes "Réaliser la thermographie" de chacun des tableaux se masque. Lorsque je créé mon rapport, le fonction copié ne veux pas me copié mes tableaux avec une ligne cachée. Je sollicite votre aide car je ne trouve pas l'erreur.

N’hésitez pas à me questionner si je n'ai pas été assez clair.

Bonjour,

voici un exemple,

dlf = Sheets("Rapport").Range("A" & Rows.Count).End(xlUp).Row + 4
dlig = Sheets("Coffret DC").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To dlig
  If Sheets("Coffret DC").Rows(i).Hidden = False Then
    Sheets("Coffret DC").Range("A" & i & ":L" & i).Copy Destination:=Sheets("Rapport").Range("A" & dlf)                                                                                                                                        
    dlf = dlf + 1
  End If
Next