Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Row > 1 Then With Sheets("Feuil2") ' <<<=== ici : le nom de ta deuxième feuille derlig = .Range("C" & Rows.Count).End(xlUp).Row + 1 If derlig < 2 Then derlig = 2 .Range("C" & derlig) = Target.Value End With End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDonc si je résume la feuille 1 sert à saisir le TU CHEF toujours dans la cellule C2 dans ce présent cas.