Microsoft 365 vba multiplier une colonne et format date

Set colonne = ws.Columns(5)
    colonne.Value = colonne.Value * 12

Sub Copie()
Application.ScreenUpdating = False
Dim i&, j&, Derlig&, DerligDst&
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim cellule as range
Set Ws1 = Worksheets("Extract")     ' Source
Set Ws2 = Worksheets("Pour Import") ' Destination

Derlig = Ws1.Range("A" & Rows.Count).End(xlUp).Row
DerligDst = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1

For i = 6 To Derlig
    With Ws1
        ar = Array(.Range("Q" & i), .Range("I" & i), .Range("L" & i), .Range("M" & i), .Range("R" & i) * 12, .Range("T" & i), .Range("B" & i), .Range("I" & i), .Range("P" & i), .Range("M" & i), .Range("AA" & i))
       With Ws2.Range("A" & DerligDst & ":L" & DerligDst)
           .Value = ar
     ' Boucle à travers chaque cellule de la plage
   
    End With
        DerligDst = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
    End With
Next i
DerligDst = Ws2.Range("A" & Rows.Count).End(xlUp).Row
  For Each cellule In Ws2.Range("E2:E" & DerligDst)
        ' Vérifiez si la cellule contient une valeur numérique
        If IsNumeric(cellule.Value) Then
            ' Multipliez le contenu de la cellule par le facteur
            cellule.Value = cellule.Value * 12
        Else
            ' Gérez le cas où la cellule ne contient pas une valeur numérique
            MsgBox "La cellule " & cellule.Address & " ne contient pas une valeur numérique."
        End If
    Next cellule
MsgBox "Valeur copiée", vbInformation, "Copie effectuée"

End Sub

Sub ImmoTiime()
Dim ws As Worksheet
Dim colonne As Range
Set E = Sheets("extract")
Set I = Sheets("pour import")
Colonnes = Array(17, 9, 12, 13, 18, 20, 2, 9, 16, 13, 27)   ' Le tableau contient les N° de colonnes à copier
    'Supprimer les 4 premières lignes et efface Import
    E.Rows("1:4").Delete
    I.Range("A2:L10000").ClearContents
    Lmax = E.[A100000].End(xlUp).Row                        ' Dernière ligne de Extract
    For N = 1 To 11                                         ' Remplissage colonnes
        Ncol = Colonnes(N - 1)
        I.Range(I.Cells(2, N), I.Cells(Lmax, N)) = E.Range(E.Cells(2, Ncol), E.Cells(Lmax, Ncol)).Value
    Next N
    I.Range(I.Cells(2, 12), I.Cells(Lmax, 12)) = E.Range("E8").Value    ' Copie E8 en colonne 12
    For C = 2 To Lmax                                       ' Multiplie chaque Durée par 12
        I.Cells(C, "E") = 12 * I.Cells(C, "E")
    Next C
End Sub

Sub ImmoTiime()
    Dim E As Worksheet, I As Worksheet, Rng As Range, LmaX&, ColMax&, Lignes, colonnes, TbL, Lig&

    Set E = Sheets("extract")
    Set I = Sheets("pour import")

    'les dimensions de la plage
    LmaX = E.[A100000].End(xlUp).Row                        ' Dernière ligne de Extract
    ColMax = E.Cells(1, 1).CurrentRegion.Columns.Count' je dimensionne au plus grand

    'la plage
    Set Rng = E.Range(E.Cells(6, 1), E.Cells(LmaX, ColMax))

    
    'Création et redimensionnement dela variable  tableau((TbL)) et exeption et ordre des colonnes
    Lignes = Evaluate("ROW(1:" & (LmaX - Rng.Row) + 1 & ")")    'toute les lignes
    colonnes = Array(17, 9, 12, 13, 18, 20, 2, 9, 16, 13, 27)   ' array des colonnes à copier + different ordered
    TbL = Application.Index(Rng.Value, Lignes, colonnes) 'compil unordered of two-dimensional array variable

    'eventuelles modifs dans la variable Tableau((TbL))
    For Lig = 1 To UBound(TbL)
        TbL(Lig, 4) = TbL(Lig, 4) * 12    'augmentation de la durée d'amortissement(*12)'si j'ai bien compris l'intention
        TbL(Lig, 3) = CDate(TbL(Lig, 3))    'certaines date sont du texte on corrige
        TbL(Lig, 9) = CDate(TbL(Lig, 9))    'certaines date sont du texte on corrige
        'etc...
        'FAIRE LES MODIF QUE L'ON VEUX ICI
    Next

    'injection dans la feuille Import
    With I.Cells(2, 1)
        .Resize(10000, 100).ClearContents
        .Resize(UBound(TbL), UBound(TbL, 2)) = TbL
    End With




End Sub