Private Sub Valide2_Click()
Mois2.Selected = "Janvier"
ligne = Sheets("Anne-Sophie").[A600].End(xlUp).Row + 1
Sheets("Anne-Sophie").Cells(ligne, 1) = Titre2.Value
Sheets("Anne-Sophie").Cells(ligne, 2) = Somme2.Value
Unload Me
Mois2.Selected = "Fevrier"
ligne = Sheets("Anne-Sophie").[C600].End(xlUp).Row + 1
Sheets("Anne-Sophie").Cells(ligne, 3) = Titre2.Value
Sheets("Anne-Sophie").Cells(ligne, 4) = Somme2.Value
Unload Me
End Sub[PHP]