Recherche si ds 1 String présence de: "," en fin

Option Explicit
Public Sub CommonComa()
        Dim intLastCell        As Integer, intCell        As Integer
        Dim strCellRef            As String
        Dim bytOffsetCount    As Byte
       
        intLastCell = Cells(65532, 2).End(xlUp).Row
        strCellRef = Cells(3, 2)
        bytOffsetCount = 0
       
        For intCell = 3 To intLastCell
                With Cells(intCell, 2)
                        If (InStrRev(.Offset(bytOffsetCount, 0).Value, ',') = Len(.Offset(bytOffsetCount, 0))) And Not .Value = Empty Then
                                strCellRef = .Value
                                Do
                                    bytOffsetCount = bytOffsetCount + 1
                                    strCellRef = strCellRef & .Offset(bytOffsetCount, 0).Value
                                    .Offset(bytOffsetCount, 0).ClearContents
                                Loop Until Not (InStrRev(Cells(intCell, 2).Offset(bytOffsetCount + 1, 0).Value, ',') = Len(Cells(intCell, 2).Offset(bytOffsetCount + 1, 0)))
                            .Value = strCellRef
                                intCell = intCell + bytOffsetCount
                                bytOffsetCount = 0
                        End If
                End With
        Next intCell
       
End Sub

Cliquez pour agrandir...

Sub Bouton1_QuandClic()
Dim i As Integer

'boucle sur chaque ligne de la colonne b en commencant par la fin
For i = Range('b65536').End(xlUp).Row To 3 Step -1
    'si la cellule en colonne B se termine par ,
    If Right(Cells(i, 2), 1) = ',' Then
        'on concatene la cellule avec celle d'en dessous
        Cells(i, 2) = Cells(i, 2) & Cells(i + 1, 2)
        'on supprime la ligne d'en dessous
        Rows(i + 1).Delete
    End If
Next i
   
End Sub

Cliquez pour agrandir...

Sub Bouton1_QuandClic()
Dim i As Integer

'boucle sur chaque ligne de la colonne b en commencant par la fin
For i = Range('b65536').End(xlUp).Row To 3 Step -1
    If IsNumeric(Cells(i, 2)) Then Rows(i).Delete
    'si la cellule en colonne B se termine par ,
    If Right(Cells(i, 2), 1) = ',' Then
        'on concatene la cellule avec celle d'en dessous
        Cells(i, 2) = Cells(i, 2) & Cells(i + 1, 2)
        'on supprime la ligne d'en dessous
        Rows(i + 1).Delete
    End If
Next i
End Sub

Cliquez pour agrandir...