Hello

I am doing a macro that copies data in an intermediate sheet that I want to be hidden..
My macro works when the sheet is not hidden but once hidden it doesn't work...
Could somebody help me?

Here is my code

Sub copydata()

Dim lngCounter As Long
Dim lngMax As Long
Dim lngCol As Long

'copier de la sheet1 a la sheet2, on copie en valeurs
Worksheets("Sheet2").Cells.ClearContents
Worksheets("Sheet3").Cells.ClearContents

Worksheets("Sheet1").Range("zoneselect").Copy
Sheets("Sheet2").Select
    Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

' On enleve les blancs entre la sheet 2 à la sheet3
'
'
    Worksheets("Sheet2").Range("A1:BB1").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B1").Select
    ActiveSheet.Paste
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.Delete shift:=xlToLeft

Sheets("Sheet2").Select
'On selectionne l'action qui a le plus de dates pour la copier dans la sheet3


For lngCounter = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
  If InStr(1, Cells(1, lngCounter).Value, "FP") > 0 Then
    If Cells(Rows.Count, lngCounter).End(xlUp).Row > lngMax Then
      lngMax = Cells(Rows.Count, lngCounter).End(xlUp).Row
      lngCol = lngCounter
    End If
  End If
Next lngCounter
'MsgBox "Greatest length is " & lngMax & " beneath Range " & Cells(1, lngCol).Address(0, 0)
With Worksheets("Sheet2").Range(Cells(2, lngCol), Cells(lngMax, lngCol)).Select
End With
    Selection.Copy
    Worksheets("Sheet3").Select
    Range("A2").Select
ActiveSheet.Paste

'retour a la sheet1
Sheets("Sheet1").Select

End Sub


Best regards

R