si la ligne 9B porte le numero 1.1 j'aimerai lui donné la valeur de 2 à la case 9D
et que cela ce repete tous au long du tableau jusqu'a la fin ....
Sub test() Dim MaColATraiter As Range 'colonne B, lignes 9 à 50 Set MaColATraiter = Range("B9:B50") 'Boucle sur la colonne à traiter For Each cell In MaColATraiter If cell.Value = "1.1" Then 'ligne de la cellule analysée Ligne = cell.Row 'si le test est ok j'écris 2 dans la colonne N°4 (D) Cells(Ligne, 4).Value = 2 End If Next End Sub
=SI(B9="1.1";2)