Salut Titou,
Je ne peux toujours pas telecharger les fichiers et excuses-moi, j’aurais du t’expliquer le code:
Private Sub Trial()
Dim tableau_tempo(Nombre_de_Colonnes) as variant
Range("A1").Select
For i = 0 To 10
If ActiveCell.Offset(i, 0).Value <> "" Then ‘parcours la colonne “A” a la recherche d’une cellule non-vide
For k = 0 To Nombre_de_colonnes ‘copie les valeurs des cellules Ai, Bi, Ci, … Zi dans tableau_tempo
Tableau_tempo ( k ) = ActiveCell.Offset( i, k).Value
Next k
Sheets.Add ‘Si trouvee -> creer une nouvelle feuille
ActiveSheet.Name = ActiveCell.Offset(i, 0).Value ‘donne pour nom a cette nouvelle page la VALEUR contenu dans la cellule Ai (je ne sais pas si c’est c’est ce que tu veux dire par NOM de Ai )
--------------------------
Else
i = 11 ‘permet de sortir de la “boucle” a la premiere cellule vide
End If
Next i
End Sub
Il ne te reste plus qu’a coller les valeur de tableau_tempo dans les cellules desirees de la nouvelle feuille avec une procedure ecrite a la place de -----------------.
A++, Sylsyl.