Sub Archiver()
Dim F1 As Worksheet, F2 As Worksheet, SS As Range
Dim lig As Variant, newlig As Long, destination As Range
Set F1 = Feuil1 'CodeName de la feuille
Set F2 = Feuil2 'CodeName de la feuille
Set SS = F1.Range("J4")
If IsEmpty(SS) Then MsgBox "Il faut entrer au moins le numéro de SS...": Exit Sub
lig = Application.Match(SS, F2.Columns("J"), 0)
newlig = F2.Range("J" & Rows.Count).End(xlUp)(2).Row
Set destination = F2.Range("B" & IIf(IsError(lig), newlig, lig))
F1.Range("B4:O4").Copy destination
'Feuil2.Activate 'facultatif
'destination.Resize(, 14).Select 'facultatif
End Sub