Modification VBA pour récapitulatif absences

Bonjour,

j'avais un tableau avec une VBA qui me permettait d'avoir un récapitulatif des absences mais j'ai du rajouter 3 colonnes et du coup tout est décaler malgré mes modification. En pj mon tableau

Merci par avance pour votre aide

Cordialement

Bonjour,

Il faudrait peut-être déjà traiter ce problème, non ?

tbU = sh.Range("A4:S" & sh.Range("E" & Rows.Count).End(xlUp).Row) 'on définit le tableau de données
'......................
'......................
If tbU(i, 5) <> "" And tbU(i, 12) <> "" Then '....si Nom/prénom et Absences remplis
           newtbU(k, 1) = tbU(i, 5)  'nom prénom
           newtbU(k, 2) = sh.Name    'service
           newtbU(k, 3) = tbU(i, 9)  'grade
           newtbU(k, 4) = tbU(i, 12)  'absence
           newtbU(k, 5) = tbU(i, 13)  'début absence
           newtbU(k, 6) = tbU(i, 14)  'fin absence
           newtbU(k, 7) = tbU(i, 18) 'remplacé par
           k = k + 1 '................incrémente l'index
          End If
'......................
'......................

Cordialement,

un immense merci

Bonne fin d'après midi