Tri automatique avec format

[tinet]

Bonjour le forum,


je fais un tri automatique avec ce code sur chaque nouvelle entrée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
m = Target
[A3:V1000].Sort Key1:=[c3]
[C:C].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub

mon problème est que sur certaines lignes il y a un format mise en forme conditionnelle qui doit être déplacé en même temps que la ligne.

Quelqu'un aurait-il une solution.