afficher contenu de cellule en fonction du contenu d'une autre cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Object 'déclare la variable U (onglet Untel)
Dim DLU As Integer 'déclare la variable DLU (Dernière Ligne de l'onglet Untel)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim R As Range 'déclare la variable R (Recherche)
Dim PLU As Range 'déclare la variable PLU (PLage de l'onglet Untel)

Set U = Sheets("untel") 'définit l'onglet U
DLU = U.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DLU de la colonne 2 (=B) de l'onglet U
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de cet onglet
Set PL = Range("C4:C" & DL) 'définit la palge PL
'si le changement a lieu ailleurs que dans la plage PL, sort de la procédure
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub

'définit la recherche R (Recherche le "nom" correspondant à la cellule modifiée dans la ligne 4 de l'onglet U)
Set R = U.Rows(4).Find(Target.Offset(0, -1).Value, , xlValues, xlWhole)
If Not R Is Nothing Then
    Set PLU = U.Range(U.Cells(5, R.Column), U.Cells(DLU, R.Column))
Else
    MsgBox "le " & Target.Offset(0, -1).Value & " n'existe pas !": Exit Sub 'message'sort de la procédure
End If
If Target.Value = "absent" Then 'consition 1 : si la cellule editée vaut "absent"
    PLU.Value = "absent"
Else 'sinon
    'ici le code pour si différent de "absent" que tu n'as pas précisé, je propose d'effacer ce qu'il y a marqué, tu recfifieras
    PLU.ClearContents
End If 'fin de la condition 2
End Sub

Sub essai()
Dim i As Long
Dim j As Integer
Dim k As Long
Application.ScreenUpdating = False
Sheets("untel").Range("C5:ZA65000").ClearContents ' cellules C5:ZA65000 effacées
For i = 4 To 65536 ' boucle de la ligne 4 à 65536 ( maximum excel 2003)
 If Sheets("choix").Cells(i, 2) <> "" Then ' si la cellule ligne i - colonne 2 différente de vide alors
 For j = 3 To 256 ' boucle de la colonne 3 à 256 ( maximum excel 2003)
 If Sheets("choix").Cells(i, 3) = "absent" And Sheets("choix").Cells(i, 2) = Sheets("untel").Cells(4, j) Then
 ' si la cellule ligne i - colonne 3 = absent et si la cellule ligne i - colonne 2 = feuille untel cellule ligne 4 - colonne j alors
 If Sheets("untel").Cells(i + 1, 2) <> "" And Sheets("untel").Cells(i + 1, j) = "" Then
  ' si feuille untel cellule ligne i + 1 - colonne 2 différent de vide et cellule ligne i + 1 - colonne j est vide alors
  For k = 5 To 65536 ' boucle de la ligne 5 à 65536
  If Sheets("untel").Cells(k, 2) <> "" And Sheets("untel").Cells(k, j) = "" Then
  ' si feuille untel cellule ligne k - colonne 2 différent de vide et cellule ligne k - colonne j est vide alors
   Sheets("untel").Cells(k, j) = "absent" ' feuille untel cellule ligne k - colonne j = absent
   Else 'sinon
   Exit For ' sortie de la boucle
  End If ' fin de si
  Next k ' fin boucle k
 Else ' sinon
 Exit For ' sortie de la boucle
 End If ' fin si
 ElseIf Sheets("untel").Cells(4, j) <> Sheets("choix").Cells(i, 2) And Sheets("choix").Cells(i, 3) = "absent" _
 And Sheets("untel").Cells(4, j) <> "" Then
 ' sinon si cellule ligne 4 - colonne j différent de cellule ligne i - colonne 2 et cellule ligne i - colonne 3
 ' = absent et feuille untel cellule ligne 4 - colonne j différent de vide alors (next j)
 Else 'sinon
 Exit For ' sortie de la boucle
 End If 'fin si
 Next j ' fin de la boucle j
 Else ' sinon
 Exit Sub ' sortie de la macro
 End If ' fin si
Next i ' fin boucle i
Application.ScreenUpdating = True
End Sub

Sub test2()
Dim i As Long
Dim j As Integer
For j = 2 To 4
For i = 13 To 15
If Sheets("choix").Range("C" & i) = "absent" Then
Sheets(j).Range("F9:F12") = Sheets("choix").Range("C" & i)
Else:
If Sheets("choix").Range("C" & i) = "" Then
Sheets(j).Range("F9:F12").ClearContents
End If
End If
Next i
Next j
End Sub

If Sheets("choix").Cells(i, 3) = "absent" And Sheets("choix").Cells(i, 2) = Sheets(2).Cells(i - 8, 5) Then

For k = 5 To 65536 ' boucle de la ligne 5 à 65536
  If Sheets(2).Cells(k, 5) <> "" And Sheets(2).Cells(k, 5) = Sheets("choix").Cells(i, 2) Then
   Sheets(2).Cells(k, 6) = "absent"
   Exit For ' sortie de la boucle
  End If ' fin de si
  Next k ' fin boucle k
  End If

end if