Bonjour le fil, bonjour le forum,
Je poste quand même malgré la réponse de GMB que je salue au passage...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)
Set O = Worksheets("page 1") 'définit l'onglet O
If Target.Row > 2 And Target.Column = 9 Then 'condition 1 : si la changement a lieu dans une ligne supérieure à 2 et la colonne 9 (=> colonne I)
If Target.Value = "mesures à poursuivre" Then 'condition 2 : si la cible vaut "mesures à poursuivre"
LI = Target.Row 'définit la ligne LI
O.Rows(LI).Copy 'copie la ligne LI de l'onglet O
O.Rows(LI + 1).Insert 'insère la ligne copiée une ligne en dessous
'récupère les valeur des cellules Bet C de LI dans les cellule B et C de LI + 1
O.Cells(LI + 1, "B").Resize(1, 2).Value = O.Cells(LI, "B").Resize(1, 2).Value
Application.CutCopyMode = False 'supprime le clignotement lié au copier/collé
End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub
[Édition]
La proposition de GMB est meilleure...