Bonjour à tous

dans les cellules cells (a,12) de la colonne L d'un tableau, je vais extraire depuis la colonne C une chaine de caractère comprise entre les signes "-" pour toutes les lignes de mon tableau avec la macro suivante et cela fonctionne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub occurence()
Dim a As Integer, i As Integer
a = 4
For i = 4 To 79
     Cells(a, 12).Select
     ActiveCell.FormulaR1C1 = "=MID(RC[-9],(SEARCH(""-"",RC[-9],1))+1,SEARCH(""-"",RC[-9],(SEARCH(""-"",RC[-9],1))+1)-((SEARCH(""-"",RC[-9],1))+1))"
     a = a + 1
Next i
End Sub
mon tableau comporte plusieurs colonnes.
je peux recopier la macro pour chaque colonne cells(a,13).select ..... et la formule reste identique mais pas top

j'aimerai pouvoir incrémenter une variable pour les colonnes et ainsi balayer tout mon tableau.

Mais je me heurte à la syntaxe dans RC

quelqu'un aurait-il une idée

merci à vous