incrementer l'indice d'une colonne dans un script vba

Bonjour
question trop facile pour certains, mais je ne sais pas comment résoudre une simple affection avec incrément de l'indic de de la colonne
Voici ma table excel
Association Dvalid Dvet365
AS Test 05/03/2023 05/03/2023
AS Test 22/10/2022 08/11/2023
AS Test 05/03/2022 01/10/2023
A.S.G.E 08/11/2022 02/07/2023
A.S.G.E 01/10/2022 08/03/2023
fin table

Et ma macro VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub validité() Dim Association As Range Set Association = Worksheets("Feuil1").Range("A1:A10") Dim cell As Excel.Range For Each cell In Association.Range("A1:A20 ") If cell.Value = "AS Test" Then ' c'est ici que je voudrais affecter la valeur de dvet365 à dvalid dvalid = dvet365 End If Next cell End Sub

---

une simple affectation mais dans vba ... je n'y arrive pas

Merci pour vos conseils

bonjour
tester :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub validité() Dim F As Worksheet Dim Association As Range Set F = Sheets("Feuil1") Set Association = F.Range("A1:A10") Dim cell As Range For Each cell In Association If cell.Value = "AS Test" Then F.Cells(cell.Row, 2) = CDate(F.Cells(cell.Row, 3)) ' c'est ici que je voudrais affecter la valeur de dvet365 à dvalid End If Next cell End Sub

---

merci beaucoup, ça marche