Bonjour
Et bien voici un code, qui cherhche la première colonne réal. vide et qui colle la formule
Sub copieformule()
'Recherche première colonne réal vide
With Sheets("demo")
For Each i In .UsedRange.Rows(9).Columns
If Left(i, 5) = "Réal." Then
If i.Offset(1, 0) = "" Then Call copie(i)
End If
Next
End With
End Sub
Sub copie(i)
formule = "=NB.SI.ENS(x!$A:$A;A10;x!$C:$C;"""")"
With Sheets("demo")
fin = .Columns(1).Rows.Find("France").Row - 1
Set zone = .Range(.Cells(10, i.Column), .Cells(fin, i.Column))
zone.FormulaLocal = formule
End With
End Sub