' Ajouter un nouveau concert
Sub Ajout()
Dim DLig As Long ' Dernière ligne remplie
Dim Ind As Integer
' Avec la feuille des données
With Sheets("Tableau Données")
' Trouver la dernière ligne remplie
DLig = .Range("A" & Rows.Count).End(xlUp).Row
' Ajouter les 4 valeurs
For Ind = 0 To 3
.Cells(DLig + 1, 1 + Ind).Value = Sheets("Formulaire").Range("C" & 23 + Ind).Value
Next Ind
End With
End Sub