ERREUR DE FIL NE PAS REPONDRE DESOLE

[excelnoober]

bonsoir,
suite a une de mes demandes un membre chevroné a certainement donne la reponse que je cherchais;
Malheureusement je ne sais pas ou placer ce code.

je me retrouve avec ce code mais je suis incapable de savoirsi
je dois le copier tel quel dans la page vba concernée ou si je dois inserer un module ou autre chose...
help svp ?

Sub Colonne_I()
Dim i As Integer
derligne = Range("A4").End(xlDown).Row
my_message = "Les Cellules Présentant des abscences sont: " & vbCrLf
For i = 4 To derligne
If Range("B" & i).Value <> "" And Range("I" & i).Value = "" Then
my_message = my_message & "I" & i & " ; "
End If
Next
MsgBox my_message
End Sub

 

[excelnoober]

ah? je pesais qu il fallait creer une autre discussions si la question differait?
j ai bien essaye de copier tel que

ouvrir ma page concernée, clic droit inserer module
copier le code,
mais aucune reaction sur mon fichier
il y a quelque chose que je ne dois pas faire

 

[excelnoober]

qaund je copie le code dans un module ca m ouvre une fenetre qui m demande un nom de macro?

 

[excelnoober]

ci dessous capture d ecran