Dim Ncol As Integer, NoLancement As Range, lig As Variant
With Workbooks("C").Sheet(1) 'fichier et feuille à adapter
Ncol = NoLancement.Parent.UsedRange.Columns.Count
lig = Application.Match(NoLancement, .Columns(1), 0)
If IsNumeric(lig) Then .Cells(lig, 1).Resize(, Ncol) _
= NoLancement.EntireRow.Resize(, Ncol).Value
End With