Désoler pour le retard,
je n'utilise pas de tableau structurer dans ce fichier.
Je pense que je me suis mal exprimer, l'userform me permet de remplir les données nécessaires pour ensuite les placer dans la feuille excel en suivant une mise en page imposée, je n'ai pas de problème pour le fonctionnement du fichier.
je me demande juste pour les lignes suivantes
With Sheets("*****")
.Cells(derlign1 + 1, 1) = Label1
.Cells(derlign1 + 1, 1).Font.Bold = True
.Cells(derlign1 + 1, 1).Font.Underline = True
s’il était possible d'écrire ces ligne en évitant pour la deuxième et troisième ligne de recopier à chaque fois
.Cells(derlign1 + 1, 1)
mon essai sans succès
.Cells(derlign1 + 1, 1) = Label1
.Font.Bold = True
.Font.Underline = True