Private Sub Transpose_dans_tableau()
'Test pour determiner la ligne où coller les infos dans le Tableau'
Sheets("Janvier").Select
Ligne_active_base = Range("A1").Row
If Range("A7") <> "" Then
Ligne_active_base = Range("A1").End(xlDown).Row + 1
End If
Sheets("Formulaire").Range("C1:C43").Copy
'Collage avec transposition'
Range("A" & Ligne_active_base).PasteSpecial _
Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
'Rendre vierge le formulaire'
Sheets("Formulaire").UsedRange.ClearContents
Range("A7").Select 'Peut-être inutile
End Sub