Bonjour à tous,

Je sais, je sais, je sais... Ce sujet a déjà été traité mille fois

J'ai regardé ces mille sujets !

Mais j'ai pas trouvé comment l’adapter à mon cas.

Visiblement ça provient de la fonction paste en VBA qui ne sait pas sous quel format coller les dates et donc les colle par défaut au format américain. Sauf quand c'est pas possible donc quand on dépasse le jour 12.

Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Coller()
    Sheets("IMPORT").Select
    Columns("G:Z").Select
    Selection.ClearContents
    Range("G1").Select
 
 
    ActiveSheet.Paste                            ' !!!! ICI !!!!!
 
 
    Range("S2:S2000").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
    Columns("F:Z").Copy
    Sheets("Données").Select
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                             :=False, Transpose:=False
    Sheets("IMPORT").Select
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("A12:A13"), _
        CopyToRange:=Range("zdoutil"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("B12:B13"), _
        CopyToRange:=Range("zdcons"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("C12:C13"), _
        CopyToRange:=Range("zdconstci"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("d12:d13"), _
        CopyToRange:=Range("zdtci"), _
        Unique:=False
    Range("import_2").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("e12:e13"), _
        CopyToRange:=Range("zdsil"), _
        Unique:=False
End Sub
J'ai vu des solutions avec Cdat mais je sais pas comment le lier avec mon paste