Private Sub MISEAJOUR_Click()
Dim WS As Worksheet
Dim Plage As Range, Cell As Range
With Sheets('0')
Set Plage = .Range(.Range('B2'), .Range('B65536').End(xlUp))
End With
For Each WS In Worksheets
If WS.Name <> '0' Then WS.Cells.Clear
For Each Cell In Plage
If WS.Name = CStr(Cell) Then
With WS.Range('a65536').End(xlUp)
.Offset(1, 0) = Cell.Offset(0, 1)
.Offset(1, 1) = Cell.Offset(0, 2)
.Offset(1, 2) = Cell.Offset(0, 3)
End With
End If
Next Cell
Next WS
End Sub