Code ok sur un fichier mais pas sur un autre (format equivalent)

Bonjour,

J'ai reussi a obternir un code pour creer un onglet 'simplified' a partir de l'onglet ''full''.
Vous trouverez ce fichier sur le lien OK.
En revanche j'ai un peu modifié ce fichier et essaye d'appliquer le code a nouveau mais il ne fonctionne pas. Vous trouverez ce fichier sur le lien pas OK.
Un erreur apparait dans le code et destructure l'onglet simplified ( vous pouvez le voir juste en dessous ainsi qu'un lien avec le code complet)

Pouvez vous m'aider a faire marcher mon code sur le nouveau fichier (pas ok) ?

.Cells(li, 1).Value = Sheets(FF).Cells(liTitreFF, 1) & " Department"
.Cells(li, 1).Font.Size = 60
.Cells(li, 1).Font.FontStyle = "Gras"
.Cells(li, 1).HorizontalAlignment = xlGeneral
.Cells(li, 1).VerticalAlignment = xlCenter
' recherche ligne changement de couleur
li = li + 1
coul = .Cells(li, 2).Interior.ColorIndex
While .Cells(li, 2).Interior.ColorIndex = coul <-------
li = li + 1
Wend

ok : https://www.cjoint.com/c/EFtpbblYh1v
Pas ok : https://www.cjoint.com/c/EFtpbBroLZv

Code complet : https://www.cjoint.com/c/EFtpcEfGbGv

Merci beaucoup !!