Sub CompteCel()
Dim Ws As Worksheet
Dim Ligne As Long, i As Integer, Valo As Integer
'Feuille où effectuer la macro
Set Ws = ThisWorkbook.Sheets("Feuil1")
'Numéro de la ligne où se trouve les données
Ligne = 1
For i = 1 To Ws.Cells(Ligne, 287).End(xlToLeft).Column
'On compte les cellules au format numérique
If IsNumeric(Ws.Cells(Ligne, i).Value) = True Then Valo = Valo + 1
Next i
Ws.Cells(Ligne, Ws.Cells(Ligne, 287).End(xlToLeft).Column + 1).Value = Valo
End Sub