Re,
Si tu veux terminer par un tri, inutile de s'embêter à insérer.
Les noms doivent s'ajouter à la fin dans Janvier.
Je recopie les formules de la ligne au-dessus, pas la peine de surcharger le classeur avec des formules inutiles. Par contre la mise en forme est sensée être faite.
Tant que j'y étais j'ai ajouté le changement de nom, qui se répercute sur toutes les feuilles et fini par un tri aussi.
Ajouter dans le module Janvier :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig As Long, tmp As String, mois As String
Dim sh As Worksheet
mois = "Janvier,Février,Mars,Décembre"
derlig = Cells(Rows.Count, "A").End(xlUp).Row
If Target.Row <> derlig Then
' modif nom
modifNom Target.Row, Target.Value, mois
Exit Sub
End If
tmp = Target
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Undo
If Target = "" Then
'nouveau nom
For Each sh In Worksheets
If InStr(mois, sh.Name) > 0 Then
sh.Select
sh.Cells(Target.Row, "A") = tmp
' étendre formules
sh.Cells(Target.Row - 1, "AG").Resize(, 8).AutoFill Destination:=sh.Cells(Target.Row - 1, "AG").Resize(2, 8), Type:=xlFillDefault
' trier
sh.Range("7:" & derlig).Sort Key1:=sh.Range("A:A"), Order1:=xlAscending, Header:=xlNo
End If
Next sh
Else
'modif nom
Target = tmp
modifNom Target.Row, tmp, mois
End If
Sheets("Janvier").Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub modifNom(lig As Long, nom As String, mois As String)
Dim sh As Worksheet, derlig As Long
derlig = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each sh In Worksheets
If InStr(mois, sh.Name) > 0 Then
sh.Activate
sh.Cells(lig, "A") = nom
' trier
sh.Range("7:" & derlig).Sort Key1:=sh.Range("A:A"), Order1:=xlAscending, Header:=xlNo
End If
Next sh
Sheets("Janvier").Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Je te laisse faire des tests plus complets.
eric
edit: je viens de voir que j'ai oublié la feuille Recap. Je pense que tu n'auras pas de mal à l'ajouter en te basant sur le modèle.