Petit soucis de changement de ligne

Bonjour à tous

Avec ce code, je n'arrive pas à changer de ligne pour les quantités, pas de prob avec la date.

Sub Macro1()

Dim DateSortie As Range, DateStock As Range, DateHS As Range
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
Set DateStock = Sheets("Stock").Range("A65536").End(xlUp)
Set DateHS = Sheets("HS").Range("A65536").End(xlUp)
DateSortie.Offset(IIf(Date <> DateSortie, 1, 0), 0).Value = Date
DateStock.Offset(IIf(Date <> DateStock, 1, 0), 0).Value = Date
DateHS.Offset(IIf(Date <> DateHS, 1, 0), 0).Value = Date
Sheets("Sortie").Range("B3") = Sheets("Sortie").Range("B3") - 1
Sheets("HS").Range("B3") = Sheets("HS").Range("B3") + 1
Sheets("Stock").Range("B3") = Sheets("Stock").Range("B3") - 1
Sheets("Ftech").Range("B3") = Sheets("Ftech").Range("B3") + 1
Sheets("Ftech").Range("B4") = Sheets("Ftech").Range("B4") - 1
End Sub

Qu'est-ce qui me manque ???

😀

Merci pour vos réponse