Sub transpose_dans_tableau()
Dim PL As Range 'déclare la variabel PL (PLage)
Dim PLV As Range 'déclare la variabel PLV (PLage des celllules Visibles)
Dim DEST As Range 'déclare la variabel DEST (CEllule de DESTination)
With Sheets("Liste des expertises")
Set PL = .Range("B3:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row) 'définit la plage PL
.Range("A2").AutoFilter Field:=2, Criteria1:=0 'fitre la colonne B avec 0 comme critère
Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV des cellules visilbles (non filtrée) de la palge PL
Set DEST = PLV(1) 'définit la cellule de destination DEST (1ère cellule de la plge PLV)
.Range("A2").AutoFilter 'supprime le filtre autmatique
End With
'Copier la source
Sheets("Formulaire de demande").Range("C4:C16").Copy 'copie
DEST.PasteSpecial Paste:=xlPasteAllExceptBorders, transpose:=True 'colle en transposant
'Rendre vierge le Formulaire de demande
Sheets("Formulaire de demande").Range("C4:C16").ClearContents
End Sub