Dim L%, C%, p As Integer
Dim t() As String
ReDim t(2, 5) [B][COLOR=green]' dimensions du tableau à adapter[/COLOR][/B]
For L = 2 To 4
p = 0 [B][COLOR=green]' à chaque ligne on commence à la colonne 0 du tableau t()[/COLOR][/B]
For C = 2 To 6
If Cells(L, C) <> "" Then
t(L - 2, p) = Cells(1, C)
p = p + 1 [COLOR=green][B]' on avance le pointeur d'une colonne[/B][/COLOR]
End If
Next C, L
Feuil2.Range("A1:E3") = t [COLOR=green][B]' on copie dans la feuil 2 (Plage à adapter)[/B][/COLOR]