Bonjour
Une chose à vérifier.
Dans le code Private Sub Worksheet_Change(ByVal Target As Range), remplacez la ligne
If Not Application.Intersect(Target, ListObjects("Objectifs").ListColumns(2).DataBodyRange) Is Nothing Then
On doit utiliser listcolumns(2) au lieu de listcolumns(1)
Puis juste pour remettre à jour, allez dans la feuille Taches, puis pour chaque valeur en colonne B, faites un double click dessus puis appuyez sur la touche Entrée du clavier.
Si ok, il va falloir adapter aussi en colonne G et H, puisque le nom objectifs2 doit être supprimé.
En G8 mettez cette formule --> =SIERREUR(SI(ESTVIDE(RECHERCHEV(INDIRECT("B" & LIGNE());Objectifs;4;FAUX));"";(RECHERCHEV(INDIRECT("B" & LIGNE());Objectifs;4;FAUX)));"")
En H8 mettez cette formule --> =SIERREUR(SI(ESTVIDE(RECHERCHEV(INDIRECT("B" & LIGNE());Objectifs;5;FAUX));"";(RECHERCHEV(INDIRECT("B" & LIGNE());Objectifs;5;FAUX)));"")