Bonjour,
Moi même je suis débutant mais j'ai déjà fait un truc similaire, voici un extrait du code si ça peut te servir:
Private Sub CommandButtonValider_Click()
If ComboBox1 = "" Then
MsgBox ("Vous n'avez pas rempli tous les champs obligatoires")
Else
'Recherche de l'indice de première ligne vide
Dim Lin As Long
Lin = 4
Do While Not IsEmpty(Range("TaClonne" & Lin))
Lin = Lin + 1
Loop
'Remplissage
Cells(Lin, TaColonne) = ComboBox1.Value // la cellule qui se trouve sur la ligne Lin et la colonne TaColonne prend la valeur de ta combobox
Unload Ajouter_Personnel //permet de fermer le formulaire
End If
End Sub
Cordialement,