[porcinet82]

Salut,

J'ai pas testé, mais je dirai un truc de genre :

Sub test()
Dim i&, k&, STRRx As String, STRRx_2 As String
With Sheets("SYNOVR")
    For i = 1 To .Range("AN65536").End(xlUp).Row
        If IsEmpty(.Range("AN" & i).Value) = False Then
            STRRx = .Range("AN" & i).Value
            With Sheets("AFFECTATIONS")
                For k = 1 To .Range("S65536").End(xlUp).Row
                    If .Range("S" & k).Value = STRRx Then
                        STRRx_2 = .Cells(k, 1).Value
                        Exit For
                    End If
                Next k
                With Sheets("SYNOVR")
                    .Range("AN" & i).Value = STRRx_2
                End With
            End With
        End If
    Next i
End With
End Sub

@+