Insertion de cellule

Bonjour,
je cherche à insérer une cellules si la valeur d´une cellule est égale `une autre cellule

je sais qu´il est peut etre possible de trouver ca dans l´aide VBA mais le pb est que je suis en Autriche et que mon PC est en Allemand et je ne comprend pas cette langue.:cry:

Donc si une ame charitable veut bien me donner cette instruction:calim2:

Merci

J'espere que cela va pouvoir t'aider
:

Code:

---

1 2 3 4 5 6 7 8

With Worksheets("Feuil1")   If .Cells(1, 3).Value = .Cells(2, 3).Value Then 'si C1 = C2 .Range("C2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' xlDown vers le bas , xlUp vers le haut End If   End With

---

----
Ce soir je suis en vacances :lahola: