Bonsoir, Salut ThauThème !
Je trouve que ça fait une mobilisation de beaucoup d'éléments pour un simple transfert de tableau...
Là sans doute qu'un copier-coller aurait été plus économique...
Mais bon on peut conserver le transfert par tableau en simplifiant tout de même un peu :
Private Sub Worksheet_Activate()
Dim Tablo, n%, k%, d%
With Worksheets("Feuil1")
n = .Cells(.Rows.Count, 1).End(xlUp).Row
k = .Cells(1, .Columns.Count).End(xlToLeft).Column
For d = 1 To k
If .Cells(1, d) Like "Date*" Then Exit For
Next d
Tablo = .Range("A1").Resize(n, k).Value2
End With
Application.ScreenUpdating = False
With Me.Range("A1")
.CurrentRegion.Clear
With .Resize(n, k)
.Value = Tablo
.Columns(d).NumberFormat = "dd/mm/yyyy"
.HorizontalAlignment = xlCenter
.Rows(1).Interior.Color = vbYellow
With .Borders
.LineStyle = xlContinuous: Weight = xlThin
End With
End With
End With
End Sub
J'ai allongé un peu en faisant la mise en forme à la fin sur le modèle de l'original... mais justement tu peux à la place en faire une autre....
Et au début, on dimensionne et on recherche la colonne Date (pas besoin de l'indiquer en dur donc).
Mais j'appelle ton attention sur le point qui te posait problème. Ici : Value2, élément qui te garantit la conservation des dates...
Cordialement.