Code BVA ne pas sauter de ligne si groupe textbox vide

Bonjour

j'ai un problème comme vous avez vu dans la photo j'ai un userform énorme (les numéro dans les texte c'est le numéro du textbox) il est bien le code sauf que je ne sais pas comment faire pour que quand dans une ligne de textbox est vide ne pas sauter de ligne et si possible de regrouper tout les 1 en ajoutant un commentaire.

le voici le code

Private Sub CommandButton1_Click()
    Dim wsTableau As Worksheet
    Dim wsRefPro As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    Dim rowOffset As Integer

    Set wsTableau = ThisWorkbook.Sheets("Produit_issu_d'un_regroupement")

    lastRow = wsTableau.Cells(wsTableau.Rows.Count, "A").End(xlUp).Row

    For i = 1 To 7

        wsTableau.Rows(lastRow + rowOffset).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        wsTableau.Cells(lastRow + rowOffset, 1).Value = Me.Controls("TextBox1").Value
        For j = 2 To 8
            wsTableau.Cells(lastRow + rowOffset, j).Value = Me.Controls("TextBox" & j + (i - 1) * 7).Value
        Next j

        rowOffset = rowOffset + 1
    Next i

    UserForm2.Hide
End Sub

merci d'avance

Cbon j'ai trouvé merci pour tous ceux qui ont essayé mais si vous avez d'autre idée j'aimerais bien les avoir

Private Sub CommandButton1_Click()
    Dim wsTableau As Worksheet
    Dim wsRefPro As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    Dim rowOffset As Integer

    Set wsTableau = ThisWorkbook.Sheets("Produit_issu_d'un_regroupement")

    lastRow = wsTableau.Cells(wsTableau.Rows.Count, "A").End(xlUp).Row

    For i = 1 To 7
        ' Vérifier si le groupe de TextBox est vide
        isEmptyGroup = True
        For j = 2 To 8
            If Me.Controls("TextBox" & j + (i - 1) * 7).Value <> "" Then
                isEmptyGroup = False
                Exit For
            End If
        Next j
                If Not isEmptyGroup Then
        ' Insérer une nouvelle ligne sous la dernière ligne avec des données
        wsTableau.Rows(lastRow + rowOffset).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        ' Écrire la valeur du premier TextBox dans la colonne A de la nouvelle ligne
        wsTableau.Cells(lastRow + rowOffset, 1).Value = Me.Controls("TextBox1").Value

        For j = 2 To 8
            wsTableau.Cells(lastRow + rowOffset, j).Value = Me.Controls("TextBox" & j + (i - 1) * 7).Value
        Next j

        rowOffset = rowOffset + 1
                End If
    Next i

    UserForm2.Hide
End Sub

mais j'ai pas trouvé comment on peut regrouper la première colonne et a ajouter un comantaire