Sub TestTabl()
Dim tablIni(), TablDest()
Dim maPlageIni As Range, maPlageDest As Range
Dim i As Long, k As Long, h As Long
Dim Ws As Worksheet
Dim Flag1 As Boolean
Set Ws = Sheets("Feuil1")
Set maPlageIni = Ws.Range("K4:M23")
k = 1
tablIni = maPlageIni.Value
ReDim TablDest(UBound(tablIni()), 3)
For i = UBound(tablIni()) To LBound(tablIni()) Step -1
If tablIni(i, 3) <> "" Then
TablDest(k, 1) = tablIni(i, 1)
TablDest(k, 2) = tablIni(i, 2)
TablDest(k, 3) = tablIni(i, 3)
k = k + 1
End If
Next i
Set maPlageDest = Ws.Range("A4:C" & UBound(TablDest()))
maPlageDest.Value = TablDest
End Sub