Feuille Maîtresse qui incrémente ou décrémente une autre feuille

[Boby71C]

Bonjour à tous

La feuille "En cours" est la feuille "Maitresse"
Les zônes en vert sont recopièes sur la feuille "TI"
Les zônes en rouge ne sont pas recopièes.
Lorsque 1 ou plusieurs lignes sont rajoutées sur la feuille "En cours",faire une mise à jour automatique de la feuille "TI" (Descendre les formules de la feuille "TI" du même nombre de lignes que la feuille "En cours"

Lorsque 1 ou plusieurs lignes sont supprimées sur la feuille "En cours", supprimer ces mêmes lignes sur la feuille "TI".

Merci pour votre aide

 

[Boby71C]

Re : Feuille Maîtresse qui incrémente ou décrémente une autre feuille

Voici le code que je viens de créer, mais je n'arrive pas à incrémenter la feuille "TI" avec ma variable "Lig_TI"
Pouvez vous me guider ?
Merci
Sub Incrémente()
' Incrémente les lignes créées dans la feuille "En cours"
' Macro enregistrée le 03/09/2009 par Robert PHILIPPE
'
Dim Proj As Variant
Dim Projet As Variant
Dim Compt_En_Cours As Variant
'Dim Lig_TI As Variant
'
Compt_En_Cours = 1
Proj = 6
'
'Atteindre la dernière céllule renseignée en colonne B
Sheets("En cours").Select
Range("B6").Select
While Cells(Proj, 2).Value <> ""
Projet = Cells(Proj, 3).Value <> ""
Proj = Proj + 1
Compt_En_Cours = Compt_En_Cours + 1
Proj = Proj + 1
Wend
Compt_En_Cours = Compt_En_Cours + 6
'
'Incrémenter la feuille "TI"
Sheets("TI").Select
Lig_TI = Compt_En_Cours
Range("F6").Select
Application.Goto Reference:="R65000C14"
Selection.End(xlUp).Select
ActiveCell.Offset(0, -13).Range("A1:N1").Select
ActiveCell.Activate
'
'Descendre d'autant de lignes que sur la feuille "En Cours"
' Selection.AutoFill Destination:=ActiveCell.Offset(0, -3).Range("A1😀5")
' ActiveCell.Offset(0, -3).Range("A1😀5").Select
Selection.AutoFill Destination:=ActiveCell.Offset(0, -3).Range("A1😀5")
ActiveCell.Offset(0, -3).Range("A1😀5").Select
End Sub