Sub copie()
Dim DerCol As Integer
DerCol = [IV1].End(xlToLeft).Column
Range(Cells(1, 7), Cells(60, DerCol)).ClearContents
For i = 1 To Sheets.Count
With Sheets(i)
If Left(.Name, 2) = "SC" Then
DerCol = IIf([IV1].End(xlToLeft).Column < 6, 7, [IV1].End(xlToLeft).Column + 1)
Cells(1, DerCol).Value = .[C3]
Range(Cells(4, DerCol), Cells(59, DerCol)).Value = .Range(.Cells(1, 14), .Cells(56, 14)).Value
End If
End With
Next i
End Sub