Option Explicit
Sub INFO_COMPTE_numeric()
Dim Var As Long
Sheets("GESTION DS COMPTES").Cells.Clear
Var = Sheets("PLAN RESEAU").Range("b1") + 1
Range(Sheets("GESTION DS COMPTES").Cells(1, Var), Sheets("GESTION DS COMPTES").Cells(29, Var)).Value = _
Range(Sheets("PLAN RESEAU").Cells(2, 3), Sheets("PLAN RESEAU").Cells(30, 3)).Value
End Sub
Sub INFO_COMPTE_string()
Dim Var As String, Numcol As Long
Sheets("GESTION DS COMPTES").Cells.Clear
Var = Sheets("PLAN RESEAU").Range("b1")
Numcol = Range(Var & 1).Offset(0, 1).Column
Range(Sheets("GESTION DS COMPTES").Cells(1, Numcol), Sheets("GESTION DS COMPTES").Cells(29, Numcol)).Value = _
Range(Sheets("PLAN RESEAU").Cells(2, 3), Sheets("PLAN RESEAU").Cells(30, 3)).Value
End Sub
Sub INFO_COMPTE_numeric_ou_string()
Dim Var As Variant, Numcol As Long
Sheets("GESTION DS COMPTES").Cells.Clear
Var = Sheets("PLAN RESEAU").Range("b1").Value
If IsNumeric(Var) Then Numcol = Var + 1 Else Numcol = Range(Var & 1).Offset(0, 1).Column
Range(Sheets("GESTION DS COMPTES").Cells(1, Numcol), Sheets("GESTION DS COMPTES").Cells(29, Numcol)).Value = _
Range(Sheets("PLAN RESEAU").Cells(2, 3), Sheets("PLAN RESEAU").Cells(30, 3)).Value
End Sub