probleme "la methode SpecialsCells a echoué"

[n3Twork]

Bonjour j'ai une erreur dés que j'appuis sur mon bouton valider des mon userform et je ne sais pas pourquoi sa marche pas ... j'ai le message d'erreur "la methode SpecialsCells de l'objet range a echoué"

voici le code

Private Sub cmdValider_Click()
Dim c As Range
On Error GoTo ErrHandler

LockUnlockWorkSheet shtEnCours, enunLock

Cells(lngRow, enColDate) = CDate(Format(txbDate.Text, "dd/mm/yy"))
Cells(lngRow, enColAuteur) = cbxAuteur.Text
Cells(lngRow, enColcommentaire2) = txbcommentaire2.Text

  Columns("E:E").WrapText = True
  

  If Context = nouvel Then Cells(lngRow, enColindicefiche) = "01"
  
For Each c In Columns("bp").SpecialCells(xlCellTypeFormulas)
c = c.Value
Next c

Me.Hide
LockUnlockWorkSheet shtEnCours, enLock
  
ThisWorkbook.Save
Unload Me

  Exit Sub
ErrHandler:
  MsgBox Err.Description, vbCritical
End Sub

merci de votre aide