Sheets("feuil1").Select
ActiveSheet.Unprotect
Range("b55:q55").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("recap").Select
ActiveSheet.Unprotect
Range("A65536").End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False