Private Sub Worksheet_Activate()
Call test
End Sub
Sub test()
For n = 1 To 12
If Format(Sheets("BDD").Range("A1"), "mmmm") = LCase(Sheets("Suivi").Cells(1, n).Value) Then
Sheets("Suivi").Cells(3, n).FormulaLocal = "=BDNBVAL(BDD!$A$2:$B65536;BDD!A2;$N$3:$N$4)"
Else
Sheets("Suivi").Cells(3, n).FormulaLocal = Sheets("Suivi").Cells(3, n).Value
End If
Next n
End Sub