Remonter une ligne en fonction de sa date dans une feuille

Bonjour,

je suis à la recherche d'aide pour pouvoir faire la phrase suivante sur excel :

Si la date d'une cellule de la colone B est supérieur à "aujourdui +10 jour" , alors remonter la ligne entière à la ligne 4

Merci d'avance pour votre aide,

Bonne journée,

Théo LE PENNEC

Bonjour theolp

Vois ce code

Sub Remonter()
Dim ind As Long, DLig As Long
Dim sh As Worksheet
Set sh = Sheets("Feuil1") 'ta feuille
DLig = sh.Range("B65536").End(xlUp).Row
For ind = 2 To DLig
    If DateValue(sh.Cells(ind, 2).Value) > Date + 10 Then
         sh.Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
         sh.Rows(ind + 1 & ":" & ind + 1).Cut sh.Rows("4:4")
         sh.Rows(ind + 1 & ":" & ind + 1).Delete
         MsgBox "Ligne " & ind & " déplacée : " & sh.Cells(4, 2).Value
         Exit For
    End If
Next
End Sub

Mais j'ai arrêté au premier cas trouvé, sinon ta première ligne détectée ne se trouvera plus en ligne 4...à toi d'aménager selon ton contexte

Bye

Merci pour ton aide et ta réactivité.

N’étant pas un expert sur excel, si je veux toujours garder la ligne 4 comme première ligne en prenant en compte l'ensemble des lignes de la feuille, comment pourrais-je faire ?

Je suppose qu'il faut creer un macro ?

Meric d'avance