Sub transferer()
Dim TabToTransfert() As Variant
Dim DateExport As Date
ReDim TabToTransfert(1 To 4, 1 To 4)
With Sheets("Base")
DateExport = .Range("B2")
Onglet = Format(DateExport, "mmmm")
For i = LBound(TabToTransfert, 1) To UBound(TabToTransfert, 1)
TabToTransfert(i, 1) = .Cells(IIf(i > 2, i + 1, i) + 5, 3) + .Cells(IIf(i > 2, i + 1, i) + 5, 4)
TabToTransfert(i, 2) = .Cells(IIf(i > 2, i + 1, i) + 5, 5)
TabToTransfert(i, 3) = .Cells(IIf(i > 2, i + 1, i) + 5, 6)
TabToTransfert(i, 4) = .Cells(IIf(i > 2, i + 1, i) + 5, 7)
Next i
End With
With Sheets(Onglet)
Set trouve = .Cells.Find(Format(DateExport, "dddd d mmmm yyyy"), LookIn:=xlValues)
If Not trouve Is Nothing Then
trouve.Offset(1, 2).Resize(UBound(TabToTransfert, 1), UBound(TabToTransfert, 2)) = TabToTransfert
End If
End With
End Sub