Problème à faire marcher ma macro

Bonjour,


Quelqu'un pourrait me dire ce qui cloche dans ma macro???? je suis à sec depuis bien longtemps et je commence à désespérer !
"
Private Sub CmdAnnuler_Click()
Unload Me
End Sub

Private Sub CmdOK_Click()
Dim ligne As Integer

If Opérateur.Value = "Nom du Déclarant" Then
MsgBox "Veuillez vous identifier", vbOKOnly, "Opérateur manquant"
Opérateur.SetFocus
Exit Sub
ElseIf qte.Value = "" Then
MsgBox "Veuillez saisir la quantité d'armature produite", vbOKOnly, "quantité manquante"
qte.SetFocus
Exit Sub
End If
'Place les valeurs sur le tableau excel'
With Sheets("données production")
ligne = .Cells(Rows.Count, 4).End(xlUp).Row + 1
.Unprotect
.Cells(ligne, 1).Value = defweek.week
.Cells(ligne, 2).Value = Format(Date, "dd/mm/yy")
.Cells(ligne, 3).Value = Format(Time, "hh:mm")
.Cells(ligne, 4).Value = saisiqte.Opérateur
.Cells(ligne, 5).Value = deféquipe.équipe
.Cells(ligne, 6).Value = saisiqte.qte
.Protect
End With

Unload Me

End Sub

'défini la date et la liste de déclarant'
Private Sub UserForm_Initialize()
Opérateur.RowSource = "'paramètres'!" & Sheets("paramètres").Range("A1").CurrentRegion.Address
date_saisie.Caption = Format(Now, "dd/mm/yy hh:mm")
End Sub

Sub deféquipe()

Dim équipe As String

If Format(Time, "hh:mm") > "5:00" And Format(Time, "hh:mm") < "13:00" Then
équipe.Value = "matin"
ElseIf Format(Time, "hh:mm") >= "13:00" And Format(Time, "hh:mm") < "21:00" Then
équipe.Value = "après - midi"
ElseIf Format(Time, "hh:mm") >= "21:00" And Format(Time, "hh:mm") < "5:00" Then
équipe.Value = "Nuit"
End If

End Sub

Sub defweek()
Dim week As Integer

week.Value = [=SI(cells(ligne, 2)=" "; " "; isoweeknum(cells(ligne, 2)]

End Sub

"

Ce qui ne marche pas plus précisément est la saisie du numéro de week donc en cells(ligne, 1) et la définition de l'équipe donc en cells(ligne, 5)
"isoweeknum" était une autre macro qui elle marche pour définir le numéro de semaine.


Si quelqu'un pouvait m'éclairer ce serait vraiment génial

Merci a+