Ajouter +1 au valeurs dans la formule

Bonjour le forum

Bonne année à tous

j'ai une formule

=SOMMEPROD(((Feuil1!$C11923:$V12000)>0)*((Feuil1!$C11923:$V12000)<5))

dont je voudrais changer les valeurs en ajout +1 a 11923(11924) et +1 à 12000(12001) a chaque clic de la macro

que voici

Dim Col As Integer

Col = Range("KK3:LS3").Precedents.Row

Cells.Replace What:="$C$" & Col & ":$V$" & Col, Replacement:="$C$" & Col + 1 & ":$V$" & Col + 1, LookAt:=xlPart _

, SearchOrder:=xlByRows

Range("LU1").Select

End Sub

mais j'ai le message pas de cellules correspondantes.

la plage de cellules a changer se trouve en KK3:LS3

Cette macro fonctionne trés bien mais les données se trouve verticalement, pour l'adapter a ma ligne horizontale j'ai changé les données " Lig" en "Col",car elle ne fonctionne plus mise horizontale.

voici la macro qui fonctionne pour le +1

Sub Macro14()

'

' Macro14 Macro

' ajout+1 -feuil1

'

Dim Lig As Integer

Lig = Range("AF11220").Precedents.Row

Cells.Replace What:="$C$" & Lig & ":$V$" & Lig, Replacement:="$C$" & Lig + 1 & ":$V$" & Lig + 1, LookAt:=xlPart _

, SearchOrder:=xlByRows

Range("Y11950").Select

End Sub

comment faut-il l'adapter pour une ligne horizontale.

merci

bonjour Jad73

bonne année avant tous,

je suppose qu'un fichier serais le bien venue (un fichier exemple, ayant vidé les choses perso)

cordialement