Décaler cellule en fonction d'une date

Sub Macro1()
'
' Macro1 Macro
'

'
    If Range("I7") = "" Then
        Range("G7").End(xlToRight).Select
    Else: Range("H7").End(xlToRight).Select
    End If
    
    col = Selection.Column
    Range(Cells(7, col), Cells(16, col)).Select
    
    
    Selection.AutoFill Destination:=Range("H7:I16"), Type:=xlFillDefault
    newzone = Range(Cells(7, col), Cells(16, col + 1)).Address(False, False)
    Selection.AutoFill Destination:=Range(newzone), Type:=xlFillDefault
    
    Range("H7:I16").Select
    Range(Cells(7, col), Cells(16, col)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Sub Macro1()
'
' Macro1 Macro

    'détection de la colonne à utiliser pour copier les formules
    If Range("I7") = "" Then
        Range("G7").End(xlToRight).Select
    Else: Range("H7").End(xlToRight).Select
    End If
    
    'identification de la colonne et sélection des formules
    col = Selection.Column
    Range(Cells(7, col), Cells(16, col)).Select
    
    'création du range NewZone ou les formules vont etre copiées
    newzone = Range(Cells(7, col), Cells(16, col + 1)).Address(False, False)
    'recopie des formules
    Selection.AutoFill Destination:=Range(newzone), Type:=xlFillDefault
    
    'copier coller spécial valeur de la colonne à sauvegarder
    Range(Cells(7, col), Cells(16, col)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub