Bonjour à tous,

Je viens vers vous afin de vous demander de l'aide.
J'essaye depuis plusieurs jours maintenant d'appliquer le code ci-dessous à l'entiéreté d'une colonne sans succés. Ayant essayer d'utiliser la fonction FillDown et derniere_ligne, qui se sont soldé par un echec, je me suis tourné vers les forum et depuis je n'ai pu trouver de réponse.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
With Sheets("Feuil1").range("AJ2")
 
     For i = 1 To derniere_ligne
 
         If IsDate(Mid(.Value, i, 7)) Then
             Sheets("Feuil1").range("AI2") = Mid(.Value, i, 7)
             Exit For
         End If
     Next i
 End With
 End Sub
Pour information, ce code fonctionne parfaitement pour une cellule mais j'aimerais vraiment l'étendre à l'entiéreté des colonnes.

Votre aide me serais d'un grand secours. merci d'avance