Private Sub MISEAJOUR_Click()
Dim i As Integer
'pour i qui va de 2 jusqu'a la derniere cellule non vide de la colonne B
For i = 2 To Range('b65536').End(xlUp).Row
'avec la feuille qui portent comme nom la valeur de la cellule cells(ligne, colonne)
With Sheets(Cells(i, 2) + 1)
'a la premiere cellule vide de la colonne A = valeur de la cellule(ligne, colonne)
.Range('a' & .Range('a65536').End(xlUp).Row + 1) = Cells(i, 3)
'fin du travail avec la feuille
End With
'incrementation de i
Next i
End Sub