soit tu changes le nom de tes onglets
soit tu modifies le code comme indiqué ci-dessous
Public Sub recap()
' changer "bilan" par le nom de ton onglet
Sheets("bilan").Select
Cells.Select
Selection.ClearContents
nb_lignes = Range("t_formation").Rows.Count
premiere_ligne = Range("t_formation[#headers]").Row
nb_colonnes = Range("t_formation").Columns.Count
col_ecrit = 1
For col = 2 To nb_colonnes
' changer "saisie" par le nom de ton onglet
' changer "bilan" par le nom de ton onglet
Sheets("bilan").Cells(1, col - 1) = Sheets("saisie").Range("t_formation[#headers]").Columns(col)
ligne_ecrit = 2
For ligne = 1 To nb_lignes
' changer "saisie" par le nom de ton onglet
If Sheets("saisie").Range("t_formation").Cells(ligne, col) <> "" Then
' changer "saisie" par le nom de ton onglet
' changer "bilan" par le nom de ton onglet
Sheets("bilan").Cells(ligne_ecrit, col_ecrit) = Sheets("saisie").Range("t_formation").Cells(ligne, 1)
ligne_ecrit = ligne_ecrit + 1
End If
Next ligne
col_ecrit = col_ecrit + 1
Next col
End Sub
je te joins un nouveau fichier stage et 3 autres fichiers pour que tu puisse utiliser la notion de tableau nommé