With Sheets("Données de Base")
For i = 2 To .Range("B65000").End(xlUp).Row
Sheets("ex1").Copy After:=Sheets(2)
Sheets("ex1 (2)").Name = .Cells(i, 2).Value
Sheets(.Cells(i, 2).Value).Cells(3, 1).Value = .Cells(i, 2).Value
Sheets(.Cells(i, 2).Value).Cells(5, 2).Value = .Cells(i, 4).Value
Sheets(.Cells(i, 2).Value).Cells(6, 2).Value = .Cells(i, 5).Value
Sheets(.Cells(i, 2).Value).Cells(7, 2).Value = .Cells(i, 6).Value
Next i
End With