Cells(Lg, 10).Range("A1:AAA1").Select
Selection.Copy
If Cells(Lg + 1, 1) = "" Then
MsgBox "Aucun ouvrage sur cette ligne"
'Cells(Lg + 2, 10).Range("A1").Select
Exit Sub
Else
Cells(Lg + 1, 10).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Cells(Lg + 1, 10).Range("A1").Select
End If