re
je n'ai fait qu'un copié / collé de ton code et quand je l'ai lancée ça a beugué. J'ai ensuite cherché à modifier pour montrer que je m'intéresse et que je veux comprendre et pas jsute attendre la réponse les bras croisés. Je ne pense pas faire n'importe quoi. D'ailleurs je vois que dans ton nouveau code tu as repris le clear.content comme je l'avais écrit c'est que ce n'était pas si mal.
Du coup je viens d'essayer ton nouveau code sans rien toucher et j'ai toujours un beug. Voir PJ. Du coup je me hasarde à demander pourquoi
f1.Range("A2:B10").ClearContents de l'onglet SAISIE? Le choix de mon site se fait via le menu déroulant de la première feuille SAISIE (je l'ai bien marqué dans mon avant dernier message) et non pas dans la cellule A5 de l'onglet EXPORT.
Du coup, je me tente à modifier le code ainsi mais je n'obtiens pas le résultat attendu. Ca recopie que quelques dates dans le désordre, avec l'année = 1900,, à partir de la cellule A26 au lieu de A12 et il n'y a pas les valeurs dans la colonne B. Voir PJ.
Sub Copie()
Dim f1 As Worksheet, f2 As Worksheet, i As Long, t2
Dim col As Range
Set f1 = Sheets("SAISIE")
Set f2 = Sheets("Export")
f1.Range("A12:B65000").ClearContents
If f1.[A5] <> "" Then
Set col = f2.Range("B6
6").Find(f1.Range("A5"))
Else: Exit Sub
End If
t2 = f2.Range(f2.Cells(12, col.Column), f2.Cells(Rows.Count, col.Column).End(xlUp))
f1.Range("A12").Resize(UBound(t2), 1) = t2
End Sub