Ah oui, je n'avais pas prévu que tu changes le nom de tes onglets ..
Dans VBA, copie/colle ce code dans chaque procédure de chaque feuille représentant des familles. Un code y ressemblant y est déjà normalement, tu le remplaces.
Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Cells.Count = 1 Then
derlig = Range("A" & Rows.Count).End(xlUp).Row
LastItem = Range("A" & derlig - 1)
If Target.Row = derlig And Target <> "" Then
LigneLI = Sheets("Transferts").Range("C3:C" & Sheets("Transferts").Range("C" & Rows.Count).End(xlUp).Row).Find(LastItem).Row
Sheets("Transferts").Range("A" & LigneLI).EntireRow.Insert
Sheets("Transferts").Range("C" & LigneLI) = Target.Value
End If
End If
End Sub