Vba

For Each cell In Range("A1:A10")
    If cell.Value = Var Then
        Selection.EntireRow.Select
        cell.Select
        ActiveCell.Copy
        ActiveCell.Offset(0, 3).Select
        ActiveSheet.Paste
    End If
Next cell

Sub test()
    'la valeur A1 soit copier sur D1
    'la valeur B1 soit copier sur E1
    'la valeur c1 soit copier sur E2 ???? F1 oui
    With Worksheets("feuil1")
        Var = InputBox("Mot à rechercher ?")
        For Each Cell In Range("A1:A10")
            If Cell.Value = Var Then
                Cell.Copy Cell.Offset(0, 3)
                Cell.Offset(0, 1).Copy Cell.Offset(0, 4)
                Cell.Offset(0, 2).Copy Cell.Offset(0, 5)
                Exit For
            End If
        Next Cell
    End With
End Sub