Private Sub CommandButton2_Click()
année = "2010" [COLOR=red]'j'ai dû ajouter ça parce que ton code ne fonctionnait pas sans[/COLOR]
Sheets(année).Select
Range("A1").Select
Dim cc, cs As Range
Dim aller As String
aller = ListBox1.Value
Set cc = ActiveCell
Do Until cc.Value = ""
Set cs = cc.Offset(1, 0)
Set cc = cs
If cs.Value = "" Then
cs.Select
End If
Loop
cs.Value = aller
[COLOR=blue]cs.Offset(0, 1).Value = Application.VLookup(aller, Sheets("Feuil1").Range("B2").CurrentRegion, 2, 0)[/COLOR]
End Sub