Renvoyer la sélection à la prochaine ligne vide

Salut à tous. Dans le cadre d'un projet pro, j'ai créé un form vba qui permet de remplir automatiquement la facture du client et d'update les databases comptables.

Je rencontre juste un soucis au niveau de mes tableaux comptables. Le code suivant me permet de renvoyer le nom, prénom, l'adhésion annuelles et les différentes cotisations des clients dans le tableau.

Sheets("SAISIE").Activate
Range("A400").End(xlUp).Offset(1, 0).Select
ActiveCell = txtnom.Value
Range("B400").End(xlUp).Offset(1, 0).Select
ActiveCell = txtprénom1.Value
If txtadh1.Value = "" Then
Range("E400").End(xlUp).Offset(1, 0).Select
ActiveCell = "."
Else
Range("E400").End(xlUp).Offset(1, 0).Select
ActiveCell = txtadh1.Value
End If
Range("F1:BH2").Find(txtact1.Value).Select
ActiveCell.End(xlDown).Offset(1, 0).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = txtcotis.Value / 3

Mon soucis est que logiquement, les valeurs txtcotis (qui peuvent correspondre à plusieurs catégories d'activités) ne sont pas alignées avec les valeurs txtnom et txtprénom si elles ne sont pas présentes à chaque occurence, ce qui créé un décalage.

Des pistes pour régler ce soucis ?

Bonne journée à tous !

Bonjour,

Une macro commence par Sub... et se termine par Sub prière de fournir toute la macro.

Une form VBA pour moi c'est du javanais tu es prié d'employé un vocabulaire compréhensible pas de SMS.

Un petit classeur avec le formulaire et la feuille SAISIE me semble indispensable.

La dernière partie (à partir de

Range("F1:BH2").Find(txtact1)

est incompréhensible sans fichier

A+