' Lit le tableau t_suivi, extrait le nom feuille, si cette feuille n'existe pas, il la crée.
Dim N%, ind%, T, ws, NomFeuille$
N = [t_suivi].Rows.Count ' Nombre de lignes de t_suivi
For ind = 1 To N
T = Split([t_suivi[Code]].Item(ind), " ")
NomFeuille = T(0) & " " & T(1)
If FeuilleExiste(NomFeuille) = False Then ' Si False alors la feuille n'existe pas
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = NomFeuille
End If
Next ind