Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
If Target.Column <> 1 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 1 (A), sort de la procédure
If Target.Row = 1 Then Exit Sub 'si le changement a lieu dans la ligne 1, sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si la sélection comporte plusieurs cellules, sort de la procédure
If UCase(Target.Value) = "PVJ" Then 'condition : si le texte édité (confond majuscule/minuscule) est "PVJ"
Set dest = Sheets(2).Range("A23").End(xlUp).Offset(1, 0) 'définit la cellule de destination dest
Range(Target, Cells(Target.Row, 5)).Copy dest 'copie la ligne (colonnes A à E) et la colle dans dest
End If 'fin de la condition
End Sub