Private Sub CommandButton1_Click()
Dim cel As Range
For Each cel In Range([A5], [A34].End(xlUp))
If Range("A" & cel.Row).Value = 1 And Range("F" & cel.Row) = "demi étage accès par arrière bât" Then
Range("L" & cel.Row) = "PMR"
Else
If Range("A" & cel.Row) = 1 And Range("F" & cel.Row) = "demi étage" Then
Range("L" & cel.Row) = "PMR"
Else
If Range("A" & cel.Row) = 1 And Range("C" & cel.Row) = 3 And Range("D" & cel.Row) = "RDC" Then
Range("L" & cel.Row) = "PMR"
Else
If Range("A" & cel.Row) = 1 And Range("C" & cel.Row) = 2 And Range("D" & cel.Row) = "RDC" Then
Range("L" & cel.Row) = "Accessible Fauteuil"
Else
If Range("A" & cel.Row) <> "" And Range("D" & cel.Row) = "RDC" Then
Range("L" & cel.Row) = "Possible Fauteuil"
Else
If Range("A" & cel.Row) <> "" And Range("D" & cel.Row) = "1er ETAGE" Then
Range("L" & cel.Row) = "PMR"
Else
Range("L" & cel.Row) = ""
End If
End If
End If
End If
End If
End If
Next cel
End Sub