Bonjour
DerLigS = WsS.Cells(Rows.Count, 1).End(xlUp).Row ? Il n'y a rien en colonne A.
DerLigS = WsS.Cells(Rows.Count, 2).End(xlUp).Row irait mieux.
Pareil pour If WsS.Cells(DerLigS, 1) = "Nom du modèle" Then Exit Sub
Et pour If WsS.Cells(LigS, 1) <> "" Then
Ou alors supprime la colonne A.
D.