Sub ConstruitTableau()
Range("K3:K1000").ClearContents ' Efface tableau de sortie
Lwrite = 3 ' Première ligne d'écriture
ColK = 11 ' N° colonne tableau de sortie
tablo = Range("B3:H9") ' Transfert de tout le tableau dans une table
For j = 1 To UBound(tablo) ' Pour toutes les colonnes du tableau
For i = 1 To UBound(tablo, 2) ' Pour toutes les lignes du tableau
If tablo(i, j) <> "" And Left(tablo(i, j), 4) <> "Test" Then ' Si non vide et si ne contient pas Test
Cells(Lwrite, ColK) = tablo(i, j) ' On tarnfert dans le tableau de sortie
Lwrite = Lwrite + 1 ' On incrémente l'indice d'écriture
End If
Next i
Next j
End Sub