Sub transpose_dans_tableau()
Sheets("Formulaire").Range("B1:B21").Copy
With Sheets("base de données")
x = .Range("A65000").End(xlUp).Row + 1
.Range("A" & x).PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
If x = 2 Then
Range("Q" & x).FormulaLocal = "=SI(ET(O2>0;P2>0);O2&""/""&P2;SI(ET(O2>0;P2="""");""Ø""&O2;""""))"
Else
.Range("Q" & x - 1).Copy
.Range("Q" & x).PasteSpecial Paste:=xlAll
Sheets("Formulaire").Range("B1:B21").ClearContents
End If
Application.CutCopyMode = False
Sheets("Base de données").Activate
End With
End Sub