Puis je demander une aide qui vous paraîtra simple mais je bute.
en cliquent sur C2 du UserForm1 je transféré la valeur Ligne=2 dans le UserForm2 je saisi une valeur numérique ou texte puis clic sur ferme la valeur devant s'ecrire dans CAT2.
Private Sub Fermer_Click()
MsgBox(UserForm1.Cat1)
For i = 1 To 3
If UserForm1("Cat" & i) = "" Then UserForm1("Cat" & i).Value = UserForm2.Cat.Value: Unload Me: Exit Sub
Next
Unload Me
End Sub