Private Sub CommandButton1_Click()
Dim ligne_active_base As Long 'déclare la variable ligne_active_base
Application.ScreenUpdating = False 'masque les changements à l'écran
'transpose_dans_tableau()
'atteindre le formulaire et mémoriserles données
'le bouton est déjà dans cet onglet, inutile de le spécifier...
Range("B1:B7").Copy
'Test pour déterminer la ligne ou coller les infos dans le tableau
With Sheets("Base de données") 'prend en compte l'onglet "Base de données"
.Select 'sélectionne l'onglet
If .Range("A2").Value = "" Then 'condition : si A2 est vide
ligne_active_base = 2 'définit la variable ligne_active_base (A2)
Else 'sinon
'définir la variable ligne_active_base (première cellule vide rencontrée dans la colonne A)
ligne_active_base = .Range("A1").End(xlDown).Offset(1, 0).Row
End If 'fin de la condition
'Collage avec transposition
.Range("A" & ligne_active_base).PasteSpecial Transpose:=True
End With
'Rendre vierge le formulaire
With Sheets("Formulaire")
.Select
.Range("B1:B7").ClearContents
.Range("B1").Select
End With
'Retourner dans le tableau
With Sheets("Base de données")
.Select
.Range("A1").Select
End With
Application.ScreenUpdating = True 'affiche les changements à l'écran
End Sub