Non fonctionnement de plage via la methode range

Bonjour, j'ai fait se code qui compte le nombre de cellule non vide d'une ligne et ajoute une valeur à la dernière ligne non vide. cependant la méthode Range ne fonctionne pas avec la plage de valeur sélectionné, elle fonctionne que en colonne, que faire?

Cordialement,

Dim sousP As Long

For sousP = 1 To Range("A1:D1" & Rows.Count).End(xlUp).Row

If Range("A1:D1" & sousP) <> "" Then

If cellempty Then Range("A1:D1" & sousP) = Range("A1:D1" & sousP) + 1

End If

Next sousP

Range("A1:D1" & sousP) = UserForm1.TextBox1.Value

MsgBox sousP

Bonjour,

Relis-toi !

compte le nombre de cellule non vide d'une ligne et ajoute une valeur à la dernière ligne non vide

ça veut dire quoi ?

Range("A1:D1" & Rows.Count).End(xlUp).Row

te provoque nécessairement une erreur (syntaxe incohérente !)

Range("A" & Rows.Count).End(xlUp).Row

ne provoquera pas d'erreur !

Mais il faut définir ce que tu veux obtenir, et joindre un fichier...