Sub Consolider()
'
' on va consolider les motivations
'
'
Columns("F:F").Select
Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("G:G").Select
Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("H3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE)"
Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H30000")
Range("H3:H30000").Select
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-3]=RC[-2],"""",VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE))"
Range("I3").Select
Selection.AutoFill Destination:=Range("I3:I30000")
Range("I3:I30000").Select
End Sub