Cellule = Label.Caption ne fonctionne pas

Private Sub CdeButOK_Click()


Dim R As Variant, M As Integer, P As Integer, col As Integer
Target = ComboBox1
TargetR = ComboBox3
Set ShtS = Sheets("Polyvalence")
M = ShtS.Range("C1:AO1").Find(What:=Target).Column 'je recherche le numéros de la colonne correspondant à la machine
'P = 0, 1 ou 2
R = ShtS.Range("A:A").Find(What:=TargetR).EntireRow
col = M + P

    If ComboBox2 = "Conducteur" Then
    P = 0
    R(1, col) = Label2.Caption
    End If
   
End Sub

Private Sub CdeButOK_Click()
Dim ccb1 As Integer 'déclare la variable ccb1 (Colonne ComboBox1)
Dim P As Integer 'déclare la variable P (pourrait être déclarée comme Byte ?)
Dim col As Integer 'déclare la variable col (COLonne)
Dim cb1 As String 'déclare la variable cb1 (ComboBox1)
Dim cb3 As String 'déclare la variable cb3 (ComboBox3)
Dim ShtS As Worksheet 'déclare la variable ShtS
 
cb1 = ComboBox1.Value 'définit la variable cb1
Set ShtS = Sheets("Polyvalence") 'définit la variable ShtS
ccb1 = ShtS.Range("C1:AO1").Find(What:=cb1).Column 'définit la colonne Ccb1
'P = 0, 1 ou 2
cb3 = ComboBox3.Value 'définit la variable cb3
If ComboBox2.Value = "Conducteur" Then 'condition : si la valweur de la ComboBox2 est "Conducteur"
    P = 0 'définit la variable P
    col = ccb1 + P 'définit la colone col
    ShtS.Cells(CInt(cb3), col) = Former.Label2.Caption 'place dans la cellule la caption du Label2
End If 'fin de la condition
End Sub

cb3 = ComboBox3.Value 'définit la variable cb3
For n = 3 To ShtS.Range("A65536").End(xlUp).Row
 If ShtS.Range("A" & n) = cb3 Then cb3n = n
Next n
If ComboBox2.Value = "Chef" Then 'condition : si la valweur de la ComboBox2 est "Chef"
    P = 0 'définit la variable P
    col = ccb1 + P 'définit la colone col
    ShtS.Cells(CInt(cb3n), col) = UserForm2.Label2.Caption 'place dans la cellule la caption du Label2
End If 'fin de la condition