If Range("X5").Value <> "" Then
Range("X5").Value = "A"
ElseIf Range("W5").Value <> "" Then
Range("W5").Value = "C"
ElseIf Range("Q5").Value <> "" Then
Range("Q5").Value = "D"
Else
Range("Q5").Value = "P"
End If
For cptr = 1 To 100 ' 1 ET 100 à adapter
If Range("X" & cptr).Value <> "" Then
Range("Z" & cptr).Value = "A" ' Z à adapter
ElseIf Range("W" & cptr).Value <> "" Then
Range("Z" & cptr).Value = "C" ' Z à adapter
ElseIf Range("Q" & cptr).Value <> "" Then
Range("Z" & cptr).Value = "D" ' Z à adapter
Else
Range("Z" & cptr).Value = "P" ' Z à adapter
End If