Coller valeur d'une UserForm

Bonsoir

Quelqu'un pourrez me dire pourquoi ma macro ne fonctionne pas. j'ai un message d'erreur 438

Private Sub CmBoxRecomSecu_Click()

derligne = Range("Société").End(xlDown).Row

Sheets("Fiche de travail").Range("Société").derligne.Value = CmBoxRecomSecu.Value

End Sub

Je voudrais coller la collection de ma Box sur la la première cellule vide de ma plage

Merci pour votre aide

Bonjour

Sans fichier pour tester

Essayes

Private Sub CmBoxRecomSecu_Click()

derligne = Range("Société").End(xlDown).Row
Sheets("Fiche de travail").Range("Société").Cells(derligne + 1, 1) = CmBoxRecomSecu.Value
End Sub

Bonjour merci pour ton, mais le code ne fonctionne pas correctement il n'arrive pas à déterminer vraiment la dernière ligne.

A+

Bonjour

Joins un fichier anonymisé en y expliquant ce que tu veux