Microsoft 365 VBA Sélectionner une ligne s'il y a une erreur dans une colonne

[Pierre111]

Bonjour,
J'aimerai que s'il y a une valeur d'erreur dans la colonne C alors la ligne entière soit sélectionnée et qu'elle soit coupée pour être collée deux lignes après la fin du tableau.
Voila un fichier d'exemple.
Merci

 

[Dranreb]

Sub Test()
   Dim RngErr As Range, Zon As Range, L As Long
   On Error Resume Next
   Set RngErr = ActiveSheet.Columns("C").SpecialCells(xlCellTypeFormulas, 16)
   If RngErr Is Nothing Then Set RngErr = ActiveSheet.Columns("C").SpecialCells(xlCellTypeConstants, 16)
   If RngErr Is Nothing Then Exit Sub
   On Error GoTo 0
   For Each Zon In RngErr.Areas
      Zon.EntireRow.Copy Rows(Cells(1000000, 1).End(xlUp).Row + 1)
      Zon.EntireRow.Delete
      Next Zon
   End Sub

Bonjour.