Format conditionnels en VBA

Private Sub CommandButton1_Click()
  Dim DerLigne As Integer
  Sheets("Signa").Unprotect
  Application.EnableEvents = False
  DerLigne = Range("A33000").End(xlUp).Row + 1
  Rows(DerLigne - 1 & ":" & DerLigne - 1).Copy Range("A" & DerLigne)
  [B]Rows(DerLigne & ":" & DerLigne).ClearContents[/B]
  Range("A" & DerLigne) = TextBox3
  Range("L" & DerLigne) = TextBox8
  Application.EnableEvents = True
  [COLOR=Red]TextBox3.Value = ""
  TextBox8.Value = ""
   Unload Me[/COLOR]
End Sub