Sub Recup()
Dim Plage As Range
Dim NomFeuille As String
Dim feuilleinitiale As String
Dim tableau1() ' représente les différents sites
Dim tableau2() ' représente les repos habituel
Dim Dercol As Integer
feuilleinitiale = CStr(Val(ActiveSheet.Name))
With Worksheets(feuilleinitiale)
'définie la plage a` recopier dans l'onglet de base
Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
tableau1 = Range("A4:P21")
tableau2 = Range("A23:T30")
End With
With Worksheets("mensuel1")
' chercher la dernière colonne non utilisée sur la ligne 3
For i = 7 To 37
If .Cells(i, 2).Value = feuilleinitiale Then ' And Worksheets(feuilleinitiale).Cells(5, 1) <> "" Then
Range(Worksheets("mensuel1").Cells(5, 3), Worksheets("mensuel1").Cells(5, 4)).Merge
End If
Next i
End With
End Sub