Sub recherche()
Dim c As Range, Adr$, i&, j&, ColonneSource$, ColonneDestin$, Colonnes1, Colonnes2
Adr = Sheets("Conso_histo").Range("b1")
Set c = Worksheets("Import_donnees").Range("A:A").Find(Adr, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
j = c.Row + 5
If Adr = "AVON-RIGNY" Then
ColonneSource = "a,d,m,n,p,q,s,u"
ColonneDestin = "b,d,e,f,g,h,i,j"
ElseIf Adr = "SAULSOTTE" Then
ColonneSource = "a,d,m,n,p,q,s,u"
ColonneDestin = "b,d,e,f,g,h,i,j"
End If
If ColonneSource <> "" Then
Colonnes1 = Split(ColonneSource, ",")
Colonnes2 = Split(ColonneDestin, ",")
For i = 0 To UBound(Colonnes1)
Sheets("Conso_histo").Cells(9, Colonnes2(i)).Resize(10) = Sheets("Import_donnees").Cells(j, Colonnes1(i)).Resize(10).Value
Next i
End If
End If
End Sub