Sub numero_nouvelle_instruction()
'déclaration des variables
Dim n°_instruction As Integer
Dim nom_instruction As String
n°_instruction = Cells(1, 4)
nom_instruction = Cells(6, 5)
If IsEmpty("nom_instruction") Then
Range("nom_instruction").Interior.Color = 4
Else: MsgBox nom_instruction & " "
End If
End Sub