Bonsoir

La ligne orange doit me recopier les dates de la colonne sous la forme (17/11/2009) mais la macro ne s'exécute pas car elle ne reconnait pas le format, j'ai éssayé différentes choses, mais je ne sais comment déclarer une variable spécifique pour cette ligne, le i me bloque.

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
Sub Copie()
Dim LastLig As Long
Dim i As Long
Dim LastCel As Long

With Sheets("AMANDA")
    LastLig = .Cells(Rows.Count, 2).End(xlUp).Row
    LastCel = Cells.Find("*", , , , , xlPrevious).Row
    
    For i = Cells(1, 1) To Cells(LastCel, 1)
        LastLig = LastLig + 1
        .Range("B" & LastLig).Value = Sheets("Calcul des BLOCS").Range("A" & i).Value        .Range("C" & LastLig).Value = Sheets("Calcul des BLOCS").Range("B" & i).Value
        .Range("D" & LastLig).Value = Sheets("Calcul des BLOCS").Range("C" & i).Value
        .Range("E" & LastLig).Value = Sheets("Calcul des BLOCS").Range("D" & i).Value
        .Range("F" & LastLig).Value = Sheets("Calcul des BLOCS").Range("E" & i).Value
        .Range("G" & LastLig).Value = Sheets("Calcul des BLOCS").Range("F" & i).Value
        .Range("H" & LastLig).Value = Sheets("Calcul des BLOCS").Range("G" & i).Value
        .Range("I" & LastLig).Value = Sheets("Calcul des BLOCS").Range("H" & i).Value
        .Range("J" & LastLig).Value = Sheets("Calcul des BLOCS").Range("I" & i).Value
        .Range("K" & LastLig).Value = Sheets("Calcul des BLOCS").Range("J" & i).Value
        .Range("L" & LastLig).Value = Sheets("Calcul des BLOCS").Range("K" & i).Value
        .Range("M" & LastLig).Value = Sheets("Calcul des BLOCS").Range("L" & i).Value

    Next i
End With
    MsgBox "Transfert Terminé "
End Sub

Merci