Sub orange_X()
With Worksheets("Formations par personne")
lastlig = .Range("C65000").End(xlUp).Row
For A = 16 To lastlig
poste = Cells(A, 3).Value
With Worksheets("Formations par poste")
For j = 12 To 32
desc = .Cells(j, 3).Value
If desc = poste Then
For fm = 4 To 35
If .Cells(j, fm).Value = "X" Then
Worksheets("Formations par personne").Cells(A, fm).Interior.ColorIndex = 44
End If
Next fm
End If
Next j
End With
Next A
End With
End Sub