Sub TotalColonnesA_2()
Dim Valeur As Double
Dim i As Integer
Valeur = 0
For i = 1 To Range("A1", Range("A65535").End(xlUp)).Rows.Count
If IsNumeric(Range("A" & i).Value) Then Valeur = Valeur + Range("A" & i).Value
Next i
Range("C11").Value = Valeur
End Sub