Dim Feuille As Worksheet, Cellule As Range
For Each Feuille In ThisWorkbook.Worksheets
Set Cellule = Feuille.UsedRange.Find(Cells(1, 1))
If Cellule Is Nothing Then Exit Sub
Cellule.Offset(0, 1) = Cells(1, 2)
Cellule.Offset(0, 2) = Cells(1, 3)
Cellule.Offset(0, 3) = Cells(1, 4)
Next