Private Sub Nombre_valeur()
Dim CEL As Range
'Lettre Colonne Variable suivant nom de l'entête
ColDef = Split(Sheets("Défauts").Range("A1:ZZ1").Find("Lib_ Défaut", LookAt:=xlWhole).Address, "$")(1)
'Formule pur compter
With Sheets("Défauts")
Set CEL = IIf(.Cells(Application.Rows.Count, ColDef).End(xlUp).Row = 1, .Cells(2, ColDef), .Cells(Application.Rows.Count, ColDef).End(xlUp))
Sheets("Formulaire").Range("O23").Value = Application.WorksheetFunction.CountA(.Range(ColDef & "2", CEL))
End With
End Sub