Ajouter 2 jours à une date

Bonjour à tous !

Dans ce code rédigé par un membre (merci à lui), je voudrais ajouter 2 jours à la date déjà renvoyé.

J'ai essayer avec DateAdd mais j'ai pas trouvé... Quelqu'un aurait une idée ?

  tb = Sheets("Leads").ListObjects(1).DataBodyRange(1, 1).Resize(nbLigne, 4)
       ReDim newtb(0 To UBound(tb, 1), 1 To 5)
        For i = 1 To UBound(tb, 1)
         If tb(i, 1) <> "" Then
          newtb(k, 1) = tb(i, 1)
          newtb(k, 2) = tb(i, 2)
          newtb(k, 3) = tb(i, 3)
          newtb(k, 4) = tb(i, 4)
          newtb(k, 5) = Date
          newtb(k, 6) = DateAdd(d, 2, Date)
          k = k + 1
         End If

Bonjour à tous,

DateAdd("d", 2, Date)

https://www.excel-pratique.com/fr/fonctions-vba/dateadd

Puisque tu rajoutes une colonne, il faut également penser à redimensionner ton tableau ainsi que la cellule de destination :

ReDim newtb(0 To UBound(tb, 1), 1 To 6)

rcell.Resize(k, 6) = newtb

Cordialement,

Merci ENCORE à toi, décidement tu es partout !

Merci je vais essayer de renseigner les autres colonne maintenant !

Je cloture le sujet.