Contraindre le format de sortie d'une date (sus au format anglais)

dateopti

Dim dateopti() as variant

'remplissage de dateopti avec des dates

 For i = 1 To UBound(dateopti)
   
        Worksheets(Nomfeuille).Range("A" & i) = dateopti(i)
        
    Next i 

Dim dateopti() as Variant
Dim num() as String
Dim date4mois as Date
date4mois = DateAdd("d", 120, dateajd)

Dim b As Long
Dim e As Long
Dim k As Long

'Remplissage des tableaux

    e = Ubound(dateopti)
    b = e

    While b >= 0                                         'première iteration
    
        d = e
        
        While d >= 0                                      'seconde iteration
             
            If  num(b) = num(d) And dateopti(b) < dateopti(d) And dateopti(b) > date4mois And dateopti(d) > date4mois Then
                 
                For k = d + 1 To e                      'Décalage vers le bas
                    num(k-1) = num(k)
                    dateopti(k - 1) = dateopti(k)
                Next k                                        'Suppression de la dernière ligne
                    dateopti(e) = Null
                    num(e)=""
                e = e - 1                                    'Reduction de la taille max du tableau
                    
            End If
            
            d = d - 1
          
        Wend
        
        b = b - 1
        
    Wend

 For i = 1 To UBound(dateopti)
   
        Worksheets(Nomfeuille).Range("A" & i) = dateopti(i)
        Worksheets(Nomfeuille).Range("B" & i) = dateopti(i)
        
    Next i 

Dim i as Long
Dim a as Long
Dim date4mois as Date
Dim date6mois as Date

date4mois = DateAdd("d", 120, dateajd)
date6mois = DateAdd("d", 180, dateajd)

a = 0
i = 1

While Worksheets(Nomfeuille1).Cells(i, 1) <> ""
        
        If date4mois < Worksheets(Nomfeuille1).Cells(i, 17) And Worksheets(Nomfeuille1).Cells(i, 17) < date6mois Then

            ReDim Preserve nom(a)
            ReDim Preserve dateopti(a)

            nom(a) = Worksheets(Nomfeuille1).Cells(i, 1)
            dateopti(a) = Worksheets(Nomfeuille1).Cells(i, 2)
            
            a = a + 1
       End If
i = i + 1
Wend