VBA : Mise en forme base de données brute

Option Explicit

Sub transfo()
Dim fsource As Worksheet, fdest As Worksheet, rsource As Range
Dim immat As String, cond As String, action As String
Dim derlig As Long, lsource As Long, ldest As Long

Set fsource = ThisWorkbook.Sheets("avant")
Set fdest = ThisWorkbook.Sheets("apres")
lsource = fsource.UsedRange.Row
derlig = lsource + fsource.UsedRange.Rows.Count
ldest = 2
Do While lsource <= derlig
    If fsource.Cells(lsource, "a") <> "" Then
        immat = fsource.Cells(lsource, "a")
        cond = ""
    End If
    If fsource.Cells(lsource, "b") <> "" Then
        cond = fsource.Cells(lsource, "b")
    End If
    action = fsource.Cells(lsource, "k")
    Select Case action
        Case "", "CONNEXION", "Activité"
        Case Else
            fdest.Cells(ldest, "a") = immat
            fdest.Cells(ldest, "b") = cond
            fdest.Cells(ldest, "c") = action
            ldest = ldest + 1
    End Select
    lsource = lsource + 1
Loop
End Sub