Microsoft 365 [RESOLU] Effacer le contenu de cellules en fonction des numéros de lignes

Sub Macro1()
Dim OV As Worksheet 'déclare la variable OV (Onglet Villes)
Dim OL As Worksheet 'déclare la variable OL (Onglet Lignes)
Dim TV As Variant 'déclare la variable TV (tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set OV = Worksheets("Villes") 'définit l'onglet OV villes
Set OL = Worksheets("ligne") 'définit l'onglet OL lignes
TV = OL.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucles sur toutes les ligne I du tabeau des valeurs TV
    OV.Cells(CInt(OL.Cells(I, 1).Value), "F").ClearContents 'supprime le contenu de la cellule ligne I colonne "F" de l'onglet OV
Next I 'prochaine ligne de la boucle
End Sub