Microsoft 365 TS Ajout ligne avec Condition

   For i = 1 To UBound(t)
   [B][COLOR=rgb(226, 80, 65)] t(i, 2) = CStr(t(i, 2))[/COLOR][/B]
      If LCase(t(i, 7)) = xCategorie Or xCategorie = "*" Then        ' c 'est la bonne catégorie
         nr = nr + 1                                                 ' on incrémente le nombre de lignes utiles
         For j = 1 To 5: [B][COLOR=rgb(226, 80, 65)]r(nr, 2) = CStr(r(nr, 2))[/COLOR][/B]: r(nr, j) = t(i, j): Next               ' copie les données de t (ligne i) dans r (ligne nr)
         d(nr, 1) = t(i, nCola)                                      ' ** n met dans d le "D_ENTREE" de la ligne retenue
      End If
   Next i
   ' ** on colle maintenant les nr lignes de r et de d dans le plan de formation
   If nr > 0 Then       ' uniquement s'il y a au moins une ligne utile dans le résultat
      Sheets("PLAN DE FORMATION").Select
      tsPlan.ListRows.Add           ' ajout d'une nouvelle ligne dans le plan
      nlig = tsPlan.ListRows.Count  ' ** numéro de la ligne de données qu'on a rajouté au plan
      ' on va coller dans la deuxième cellule (colonne 2) de cette nouvelle ligne les nr lignes de r
      tsPlan.ListRows(nlig).Range(1, 2).Resize(nr, 5) = r
      ' ** on va coller dans la nColb ième cellule (colonne 12) de cette nouvelle ligne les nr lignes de d
      tsPlan.ListRows(nlig).Range(1, nColb).Resize(nr, 1) = d
      ' ** on formate la colonne "DUREE EN HRES" en date
      tsPlan.ListColumns(nColb).DataBodyRange.NumberFormat = "dd/mm/yyyy"
      ' ** on formate la colonne "MATRICULE R.H." au format Texte
     [B][COLOR=rgb(226, 80, 65)] tsPlan.ListColumns(3).DataBodyRange.NumberFormat = "@"[/COLOR][/B]
      ' si on veut changer l'en-t^te de la colonne "DUREE EN HRES"
      tsPlan.Range(1, nColb) = "Date Initiale"