Macro de type nbval

Bonjour,
j'ai un petit soucis avec mon macro qui fait le même boulot que nbval.
j'ai le code suivant

Code:

---

1 2 3 4 5 6

Sub NombreValeurs() Dim Cel As Range For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Cel.Offset(0, 2) = Application.CountA(Cel.Resize(1, 2)) Next Cel End Sub

---

ça marche bien de toute façon mais seulement quand j'ai une colonne A à coté de B et de C
Ce que je veux c'est l'appliquer sur ma page
ou la premiére colonne est C, la deuxiéme D et la ou il affiche le calcule c'est H

Merci

C'est bon j'ai la solution.
Il suffit de modifier dans l'offset

Code:

---

1 2 3 4

Dim Cel As Range For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) Cel.Offset(0, 5) = Application.CountA(Cel.Resize(1, 2)) Next Cel

---