Grouper les cellules non vides

Sub nonvide()
   ActiveSheet.Select
ActiveSheet.Cells(105, 3).Select
For i = 3 To 81
ActiveSheet.Cells(105, i).Select
Do
    If Selection.Offset(0, -1).Value <> "" Then Exit Do
    If Selection.Offset(0, -1).Value = "" Then
     Selection.Offset(0, -1).Value = Selection.Value
     Selection.ClearContents
     Selection.Offset(0, -1).Select
    End If
Loop Until Selection.Offset(0, -1).Value <> ""
Next

End Sub