Sub Transfert()
Dim liste, source As Worksheet, i As Variant, n As Byte
liste = Array("tata", "titi", "toto", "tutu") 'liste des feuilles à renseigner, à adapter
Set source = Sheets("port")
i = Application.Match(Sheets("page 1").[F3], source.[A:A], 0)
If IsNumeric(i) Then
On Error Resume Next 'si des feuilles n'existent pas
For n = 0 To UBound(liste)
Sheets(liste(n)).[B1:J1] = source.Cells(i, 2).Resize(, 9).Value
Next
End If
End Sub