VBA-Suppression d'une colonne dans un tableau

[D9].CurrentRegion.Columns(3).Delete

Sub Macro1()
'
' Macro1 Macro
'
Dim Tableau As [COLOR=red][B]Range[/B][/COLOR]
[COLOR=#ff0000][B]Set[/B][/COLOR] Tableau = Range("D9").CurrentRegion [COLOR=red][B]'Sans le .value[/B][/COLOR]
Tableau.Columns(3).Delete
'
End Sub

Sub Macro1()
'
' Macro1 Macro
'
Dim Tableau As Variant
Tableau = Range("D9").CurrentRegion.Value
'
End Sub

Tableau.Columns(3).Delete

'
' Macro1 Macro
'
Dim Tableau As Variant
Dim i As Long ' Index des lignes du tableau
Tableau = Range("D9").CurrentRegion.Value
For i = 1 To UBound(Tableau)
    Tableau(i, 3) = 0 ' ou "" ou ce que tu veux
Next
End Sub

Public Function SupprimerColonne(tableau() As Variant, numColonne As Long) As Variant()
Dim res() As Variant, iL As Long, iC As Long
    
    'dimensionner le "tableau résultat" (nbLignes de tableau, nbColonnes de tableau - 1)
    ReDim res(LBound(tableau, 1) To UBound(tableau, 1), LBound(tableau, 2) To UBound(tableau, 2) - 1)
    
    'boucler sur touts les éléments du tableau
    For iL = LBound(tableau, 1) To UBound(tableau, 1)
        For iC = LBound(tableau, 2) To UBound(tableau, 2) - 1
            'transférer les données
            res(iL, iC) = tableau(iL, IIf(iC < numColonne, iC, iC + 1))
        Next iC
    Next iL
    
    'retourner le "tableau résultat"
    SupprimerColonne = res
End Function

Sub Macro1()
'
' Macro1 Macro
'
Dim tableau() As Variant

tableau = Range("D9").CurrentRegion.Value
tableau = SupprimerColonne(tableau, 3)

End Sub